OFFSET
1,1
COMMENTS
LINKS
Ray Chandler, Table of n, a(n) for n=1..59
EXAMPLE
a(53) = 266111 = 2^18 - 3967, where 3967 = prime(549).
a(54) = 4294978733 = 2^32 - 11437, where 11437 = prime(1379).
a(55) = 37778931862957161731461 = 2^75 - 21893, where 21893 = prime(2456).
a(56) = 37778931862957161765331 = 2^75 - 55763, where 55763 = prime(5658).
a(57) = 2787593149816327892691964784081045188361473 = 2^141 - 113921, where 113921 = prime(10782).
a(58) = 2^835 - 983063, where 983063 = prime(77280). (252 digits)
a(59) = 2^1322 - 3993547, where 3993547 = prime(282738). (398 digits)
a(60) = 2^5945 - 42565109, where 42565109 = prime(2579884). (1790 digits)
a(61) = 2^16116 - 52274777, where 52274777 = prime(3129277). (4852 digits)
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
Confirmed a(1)-a(54), extend to a(61) by Ray Chandler, Aug 06 2010
STATUS
approved