OFFSET
1,1
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
prime(2)=3, prime(2+3)=11. (3+11)/2 = 7
MATHEMATICA
Select[(#[[1]]+#[[4]])/2&/@Partition[Prime[Range[500]], 4, 1], PrimeQ] (* Harvey P. Dale, Nov 30 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