OFFSET
1,1
EXAMPLE
1-4=-3,1+4=5; 3-8=-5,3+8=11; 6-11=-5,6+11=17;
MATHEMATICA
a = 0; y = 0; For[i = 1, i < 15, a = a + i; Do[If[PrimeQ[a - k] && PrimeQ[a + k] && k > y, y = k; Break[]], {k, 250}]; Print[a, ": ", a - y, ", ", y, ", ", a + y]; i++ ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Oct 17 2007
STATUS
approved