|
| |
|
|
A145914
|
|
a(n) = smallest integer k such that Log[1/Log[(1 + k)^(1/k)]] is bigger than n
|
|
0
| |
|
|
5, 24, 91, 315, 1030, 3265, 10113, 30811, 92674, 275947, 814940
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Log[1/Log[(1 + k)^(1/k)]] = Log[1/Hypergeometric2F1[1,1,2,-z]]
|
|
|
MATHEMATICA
| a = {}; k = 1; Do[If[N[Log[1/Log[(1 + n)^(1/n)]]] > k, Print[n]; AppendTo[a, n]; k = k + 1], {n, 1, 1000000}]; a (*Artur Jasinski*)
|
|
|
CROSSREFS
| A145913
Sequence in context: A089095 A158499 A074085 * A066316 A180354 A087095
Adjacent sequences: A145911 A145912 A145913 * A145915 A145916 A145917
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Oct 24 2008
|
| |
|
|
