# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a103149
Showing 1-1 of 1

%I A103149 #5 Mar 31 2012 13:21:09
%S A103149 3,5,17,31,73,79,89,113,127,179,193,257,271,281,311,337,389,443,457,
%T A103149 491,599,647,659,701,757,809,839,877,907,997,1049,1087,1117,1201,1229,
%U A103149 1249,1259,1303,1327,1381,1439,1451,1499,1597,1619,1657,1759,1871,1889,1933
%N A103149 a(1)=3, a(n) = A000040(A130972(n)).
%t A103149 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]
%o A103149 (Scheme:) (define (A103149 n) (if (= n 1) 3 (A000040 (A130972 n))))
%Y A103149 A102632, A103150.
%K A103149 nonn
%O A103149 1,1
%A A103149 _Lei Zhou_, Feb 05 2005
%E A103149 Edited, Scheme-code added and starting offset changed from 0 to 1 by _Antti Karttunen_, Jun 19 2007

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE