|
| |
|
|
A145913
|
|
a(n) = smallest integer k such that 1/Log[(1 + k)^(1/k)] is bigger than n
|
|
2
| |
|
|
1, 3, 6, 10, 14, 18, 22, 27, 32, 37, 42, 47, 52, 57, 63, 68, 74, 79, 85, 91, 97, 102, 108, 114, 120, 126, 133, 139, 145, 151, 157, 164, 170, 176, 183, 189, 196, 202, 209, 216, 222, 229, 235, 242, 249, 256, 262, 269, 276, 283, 290, 297, 304, 310, 317, 324, 331
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 1/Log[(1 + k)^(1/k)] = 1/Hypergeometric2F1[1,1,2,-z]
|
|
|
MATHEMATICA
| a = {}; k = 1; Do[If[N[((1/n) Log[1 + n])^(-1)] > k, AppendTo[a, n]; k = k + 1], {n, 1, 1010}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| Sequence in context: A078060 A022764 A113127 * A130246 A167381 A036572
Adjacent sequences: A145910 A145911 A145912 * A145914 A145915 A145916
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Oct 24 2008
|
| |
|
|
