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
Keywords
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] -
Scheme
(define (A103149 n) (if (= n 1) 3 (A000040 (A130972 n))))
Extensions
Edited, Scheme-code added and starting offset changed from 0 to 1 by Antti Karttunen, Jun 19 2007