|
| |
| |
|
|
|
3, 5, 17, 31, 73, 79, 89, 113, 127, 179, 193, 257, 271, 281, 311, 337, 389, 443, 457, 491, 599, 647, 659, 701, 757, 809, 839, 877, 907, 997, 1049, 1087, 1117, 1201, 1229, 1249, 1259, 1303, 1327, 1381, 1439, 1451, 1499, 1597, 1619, 1657, 1759, 1871, 1889, 1933
(list; graph; refs; listen; history; internal format)
|
|
|
|
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]
|
|
|
PROG
| (Scheme:) (define (A103149 n) (if (= n 1) 3 (A000040 (A130972 n))))
|
|
|
CROSSREFS
| A102632, A103150.
Sequence in context: A079496 A038898 A089133 * A007802 A056816 A156761
Adjacent sequences: A103146 A103147 A103148 * A103150 A103151 A103152
|
|
|
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
|
| |
|
|
