OFFSET
1,2
MATHEMATICA
Do[ s = Sum[ Prime[i], {i, n(n-1)/2 + 1, n(n+1)/2} ]; If[ PrimeQ[s] || PrimeQ[s/2], Print[n] ], {n, 10^3} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 06 2001
STATUS
approved