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
Keywords
Links
- R. J. Mathar, Table of n, a(n) for n = 1..45
Programs
-
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] -
PARI
a(n) = {my(k = 2); while(sqrtn(k,n)/log(k) <= 2, k++); k;} \\ Michel Marcus, Sep 10 2015
Extensions
a(14) from Jon E. Schoenfield, Sep 12 2015