|
|
|
|
2, 3, 7, 1237, 66067, 525593, 974167, 1412473, 2675759, 4471237, 5264333, 8107961, 8308271, 12615151, 20145407, 34926433, 43167569, 94772749, 104612297, 115103327, 144450221, 153124973, 165108557, 196634723, 211696049, 213507241, 255963131, 263979101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[(PrimePi[#^2 + #] - PrimePi[#]) & /@ Select[Prime@Range[3000], PrimeQ[#^2 + # + 1] &], PrimeQ] (* Giovanni Resta, Feb 27 2014 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|