A224824 Smallest m such that Fibonacci(m) >= m^n.

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

Links

Table of n, a(n) for n=1..50.

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

Cf. A002708, A132634, A132636.

Cf. A065220, A014283.

Sequence in context: A270214 A063559 A259913 * A121291 A272012 A272451

Adjacent sequences: A224821 A224822 A224823 * A224825 A224826 A224827

Keyword

nonn

Author

Michel Marcus, Jul 21 2013

Status

approved