A262060 Least integer k such that k^(1/n)/log(k) exceeds 2.

2, 2, 4913, 463584, 58571590, 9380523077, 1831736082750, 423908600424675, 113798703080610442, 34848887401383308294, 12011778862556061365985, 4609276407921507486293833, 1951202873990586514532224545, 904205931392036935959059378623

Offset

1,1

Links

R. J. Mathar, Table of n, a(n) for n = 1..45

Mathematica

f[n_] := f[n] = Block[{k = f[n - 1]}, While[2 > k^(1/n)/Log[k], k++]; k]; f[1] = 2; Array[f, 6]

Prog

(PARI) a(n) = {my(k = 2); while(sqrtn(k, n)/log(k) <= 2, k++); k; } \\ Michel Marcus, Sep 10 2015

Crossrefs

Cf. A084238, A088346, A262058, A262059.

Sequence in context: A287764 A260753 A079237 * A243411 A013510 A013504

Adjacent sequences: A262057 A262058 A262059 * A262061 A262062 A262063

Keyword

nonn

Author

Robert G. Wilson v, Sep 09 2015

Extensions

a(14) from Jon E. Schoenfield, Sep 12 2015

Status

approved