|
%I
%S 2,3,18,27,200,2870,39492,22980943,120106923
%N Number of primes between A075737(n) and A075737(n+1).
%t 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
%Y Cf. A000045, A050937, A075737, A090819, A134787.
%K nonn,changed
%O 1,1
%A _Artur Jasinski_, Nov 13 2007
%E Edited by _N. J. A. Sloane_, Oct 07 2008
|
