A087506 Primes in A087461.
5, 13, 71, 127, 163, 197, 227, 307, 317, 409, 523, 587, 593, 761, 857, 947, 1151, 1321, 1373, 1783, 1861, 1973, 2039, 2273, 2417, 2543, 3049, 3083, 3457, 3463, 3697, 3739, 4093, 4243, 4253, 4463, 4483, 4519, 4583, 4657, 4723, 4751, 5171, 5179, 5519, 5591
Offset: 1
Keywords
Crossrefs
Cf. A087461.
Programs
-
Mathematica
Select[Table[(Prime[n]+Prime[2n])/2,{n,500}],PrimeQ] (* Harvey P. Dale, May 06 2013 *)
Comments