OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..2500
MATHEMATICA
(PrimePi[#^2 + #] - PrimePi[#]) & /@ Select[Prime@Range@500, PrimeQ[#^2 + # + 1] &] (* Giovanni Resta, Feb 27 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Torlach Rush, Feb 26 2014
EXTENSIONS
a(33)-a(39) from Giovanni Resta, Feb 27 2014
STATUS
approved