|
Search: id:A103150
|
|
| |
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Are the values A103150(53)=266111 and A103150(54)=4294978733 correct? -- Antti Karttunen, Jun 19 2007.
|
|
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
|
a(n) = A130971(A130972(n)). Cf. A103149, A102632.
Sequence in context: A137248 A136260 A133201 this_sequence A065723 A024779 A087906
Adjacent sequences: A103147 A103148 A103149 this_sequence A103151 A103152 A103153
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Lei Zhou (lzhou5(AT)emory.edu), Feb 05 2005
|
|
EXTENSIONS
|
Edited, Scheme-code added and starting offset changed from 0 to 1 by Antti Karttunen (His-Firstname.His-Surname(AT)gmail.com), Jun 19 2007
|
|
|
Search completed in 0.002 seconds
|
