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

Author

Ray Chandler, Sep 10 2003

Keywords

• nonn

Comments

Primes of the form (prime(k)+prime(2k))/2.

Crossrefs

Cf. A087461.

Programs

Mathematica

Select[Table[(Prime[n]+Prime[2n])/2,{n,500}],PrimeQ] (* Harvey P. Dale, May 06 2013 *)