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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 09 2015
EXTENSIONS
a(14) from Jon E. Schoenfield, Sep 12 2015
STATUS
approved