login
A098032
Primes p such that p = (prime(n)+ prime(n+5))/2.
0
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
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
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Sep 10 2004
STATUS
approved