A134851 - OEIS

%I #16 Sep 15 2024 02:41:31

%S 0,1,1,1,1,1,2,1,4,1,8,9,1,39,11,1,3,10,7,1,324,208,73,442,42,498,

%T 1122,502,508,147,1235,2796,2014,2145,1520,4388,15584,2814,11888,274,

%U 826,24119,8554,16877,24680,11591,11503,63625,22803,6374,92008,115147,79772,157711,3110

%N Number of primes between A001605(n) and A001605(n+1).

%F a(n) = primepi(A001605(n+1)) - primepi(A001605(n)). - _Amiram Eldar_, Sep 01 2019

%t a = {}; k = {}; Do[If[PrimeQ[Fibonacci[n]], AppendTo[k, n]], {n, 1, 1000}]; Do[AppendTo[a, PrimePi[k[[n + 1]]] - PrimePi[k[[n]]]], {n, 1, 20}]; a

%Y Cf. A000045, A000720, A001605, A050937, A075737, A090819, A134787.

%K nonn

%O 1,7

%A _Artur Jasinski_, Nov 13 2007

%E More terms from _Amiram Eldar_, Sep 01 2019 and Sep 15 2024