A103149 a(1)=3, a(n) = A000040(A130972(n)).

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

Offset

1,1

Links

Table of n, a(n) for n=1..50.

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: A333353 A297175 A089133 * A372012 A007802 A056816

Adjacent sequences: A103146 A103147 A103148 * A103150 A103151 A103152

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