A098032 - OEIS

A098032

Primes p such that p = (prime(n)+ prime(n+5))/2.

59, 131, 139, 239, 269, 281, 331, 401, 431, 691, 769, 797, 929, 1021, 1439, 1549, 1741, 1831, 1847, 1999, 2141, 2221, 2269, 2459, 2633, 2699, 2719, 2731, 3319, 3529, 3583, 3691, 3709, 3779, 4327, 4373, 4651, 4969, 4999, 5011, 5021, 5717, 5869, 5879, 5903

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..45.

EXAMPLE

prime(15)+prime(20) = 59*2

MATHEMATICA

Select[Table[(Prime[n]+Prime[n+5])/2, {n, 1000}], PrimeQ] (* Harvey P. Dale, Jul 25 2011 *)

PROG

(PARI) f(n, m) = for(x=1, n, y=prime(x)+prime(x+m); if(y%2==0 & isprime(y\2), print1(y\2", ")))

CROSSREFS