OFFSET
1,1
COMMENTS
MATHEMATICA
s = 7472966967499; a = 2; b = 15485863; Do[s = s - a + (b = NextPrime[b]); a = NextPrime[a]; If[PrimeQ[p = s/10^6], Print[p]], {10^8}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 24 2013
STATUS
approved