OFFSET
1,1
LINKS
MATHEMATICA
a = {}; k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Fibonacci[Prime[n]]]], {n, 1, 100}]; Do[AppendTo[a, PrimePi[k[[n + 1]]] - PrimePi[k[[n]]]], {n, 1, 9}]; a
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Nov 13 2007
EXTENSIONS
Edited by N. J. A. Sloane, Oct 07 2008
a(10) using Kim Walisch's primecount, from Amiram Eldar, May 14 2023
STATUS
approved