login
A224824
Smallest m such that Fibonacci(m) >= m^n.
0
5, 12, 21, 30, 41, 51, 62, 73, 85, 97, 109, 122, 134, 147, 160, 174, 187, 200, 214, 228, 242, 256, 270, 284, 298, 312, 327, 342, 356, 371, 386, 401, 416, 431, 446, 461, 476, 491, 507, 522, 538, 553, 569, 585, 600, 616, 632, 648, 664, 680
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