OFFSET
1,1
COMMENTS
EXAMPLE
PROG
(Magma) [ q: q in PrimesInInterval(3, 2900000) | r+s eq 2*q and IsPrime(p) and PreviousPrime(p)+NextPrime(p) eq 2*p where p is (r+q+s-1) div 2 where r is PreviousPrime(q) where s is NextPrime(q) ];
CROSSREFS
KEYWORD
nonn
AUTHOR
Klaus Brockhaus, Apr 05 2007
STATUS
approved