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
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Sep 10 2004
STATUS
approved