OFFSET
1,1
MATHEMATICA
Flatten[{5, Table[Ceiling[(n*LambertW[-1, -Log[GoldenRatio]/(n*5^(1/(2*n)))])/-Log[GoldenRatio]], {n, 2, 50}]}] (* Vaclav Kotesovec, Jul 24 2013 *)
PROG
(PARI) a(n) = {my(ok = 0, m = 2); until (ok, if (fibonacci(m) >= m^n, ok = 1, m++); ); return (m); } \\ Michel Marcus, Jul 21 2013; corrected Jun 13 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Marcus, Jul 21 2013
STATUS
approved