A103150 Record values in A130971.
2, 3, 13, 23, 41, 47, 73, 97, 131, 163, 191, 193, 239, 277, 307, 353, 373, 379, 449, 487, 601, 631, 643, 709, 761, 811, 823, 881, 911, 1013, 1033, 1091, 1109, 1193, 1213, 1217, 1291, 1301, 1319, 1373, 1423, 1447, 1483, 1601, 1621, 1721, 1823, 1867, 1873, 1901, 4021, 5011, 266111, 4294978733
Offset: 1
Keywords
Examples
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)
Links
- Ray Chandler, Table of n, a(n) for n=1..59
Programs
-
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]
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
Comments