login
A134791
a(n) = floor(log(Fibonacci(prime(k))/prime(k))), where k = A119984(n).
2
-1, 0, 0, 2, 2, 4, 7, 9, 16, 17, 34, 57, 60, 166, 200, 201, 209, 237, 266, 267, 1420, 2263, 2582, 4470, 4646, 6933, 12289, 14789, 17311, 18039, 24449, 39369, 50472, 62555, 71250, 96762, 191209, 208726, 283920, 285676, 290979, 448242, 505208, 618634, 787250, 867638
OFFSET
1,4
LINKS
MATHEMATICA
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k
KEYWORD
sign
AUTHOR
Artur Jasinski, Nov 12 2007
EXTENSIONS
a(21)-a(46) from Amiram Eldar, Oct 13 2024
STATUS
approved