OFFSET
1,1
MATHEMATICA
pmin = 0; pm0 = 2^16384; mpm = 0; ppm = 0; mcm = 0; pcm = 0; p = 1; While[pmin < pm0, pmin = pm0; = 0; nu2 = 1; cm = nu2 - p; cp = nu2 + p; While[(n < 16383) && (cm < pmin), If[(cp < pmin) && PrimeQ[cp], pmin = cp]; acm = Abs[cm]; If[(mpm < pmin) && PrimeQ[p], mpm = pmin; ppm = p; Save["pinc.txt", {mpm, ppm}]]; p = p + 2]
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Feb 05 2005
EXTENSIONS
Edited, Scheme-code added and starting offset changed from 0 to 1 by Antti Karttunen, Jun 19 2007
STATUS
approved