A238400 Primes in A238399.
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
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..100
Programs
-
Mathematica
Select[(PrimePi[#^2 + #] - PrimePi[#]) & /@ Select[Prime@Range[3000], PrimeQ[#^2 + # + 1] &], PrimeQ] (* Giovanni Resta, Feb 27 2014 *)
Extensions
Corrected by Torlach Rush, Feb 26 2014
a(16)-a(28) from Giovanni Resta, Feb 27 2014