|
|
A066661
|
|
Numbers m such that floor((1+1/m)^k)=k for an integer k>1.
|
|
1
|
|
|
2, 3, 4, 5, 7, 13, 20, 27, 31, 34, 36, 38, 48, 65, 70, 73, 76, 79, 95, 104, 112, 117, 125, 126, 144, 145, 153, 154, 159, 164, 172, 179, 182, 185, 190, 195, 202, 204, 216, 218, 225, 235, 253, 269, 279, 285, 291, 292, 300, 301, 313, 314, 315, 340, 341, 342, 355, 356, 365
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
Conjecture: a(n)=C*n*log(n) asymptotically with C=1.5...
|
|
EXAMPLE
|
Floor((1+1/4)^11) = 11 hence 4 is in the sequence.
|
|
MATHEMATICA
|
t = Table[Floor[Re[-LambertW[-1, -Log[1 + 1/n]]/Log[1 + 1/n]] + 1], {n, 1, 1000}]; Select[Range[Length[t]], Floor[(1 + 1/#1)^t[[#1]]] == t[[#1]]&] (* Vaclav Kotesovec, Feb 16 2019 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|