%I #15 Feb 27 2014 05:35:54
%S 2,3,7,1237,66067,525593,974167,1412473,2675759,4471237,5264333,
%T 8107961,8308271,12615151,20145407,34926433,43167569,94772749,
%U 104612297,115103327,144450221,153124973,165108557,196634723,211696049,213507241,255963131,263979101
%N Primes in A238399.
%H Giovanni Resta, <a href="/A238400/b238400.txt">Table of n, a(n) for n = 1..100</a>
%t Select[(PrimePi[#^2 + #] - PrimePi[#]) & /@ Select[Prime@Range[3000], PrimeQ[#^2 + # + 1] &], PrimeQ] (* _Giovanni Resta_, Feb 27 2014 *)
%Y Cf. A238399, A053182, A053183.
%K nonn
%O 1,1
%A _Torlach Rush_, Feb 26 2014
%E Corrected by _Torlach Rush_, Feb 26 2014
%E a(16)-a(28) from _Giovanni Resta_, Feb 27 2014
|