A134792 a(n) = round(log(Fibonacci(prime(k))/prime(k))), where k = A119984(n).
0, 0, 1, 2, 3, 5, 7, 10, 16, 18, 35, 57, 60, 166, 201, 201, 209, 238, 267, 268, 1421, 2263, 2583, 4471, 4647, 6934, 12289, 14789, 17312, 18039, 24450, 39370, 50472, 62555, 71250, 96762, 191210, 208727, 283921, 285676, 290980, 448242, 505208, 618634, 787251, 867638
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..55
Programs
-
Mathematica
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Round[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k
Extensions
a(21)-a(46) from Amiram Eldar, Oct 13 2024