OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
prime(3)=5,prime(3+4)=17. (5+17)/2 = 11.
MATHEMATICA
Select[Table[(Prime[n]+Prime[n+4])/2, {n, 800}], PrimeQ] (* Harvey P. Dale, Sep 29 2017 *)
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