[go: up one dir, main page]

login
A134850
Number of primes between A075737(n) and A075737(n+1), including one bound.
1
2, 3, 18, 27, 200, 2870, 39492, 22980943, 120106923, 2602986018837012
OFFSET
1,1
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