|
|
A262060
|
|
Least integer k such that k^(1/n)/log(k) exceeds 2.
|
|
3
|
|
|
2, 2, 4913, 463584, 58571590, 9380523077, 1831736082750, 423908600424675, 113798703080610442, 34848887401383308294, 12011778862556061365985, 4609276407921507486293833, 1951202873990586514532224545, 904205931392036935959059378623
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|