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

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

Sequence in context: A050230 A138633 A237687 * A139994 A107157 A039537

Adjacent sequences: A098029 A098030 A098031 * A098033 A098034 A098035

Keyword

easy,nonn

Author

Cino Hilliard, Sep 10 2004

Status

approved