|
%I #9 Feb 02 2015 03:50:06
%S 2,6,9,12,14,16,19,22,24,26,29,32,34,36,39,41,43,45,47,50,53,55,57,59,
%T 61,64,66,68,71,74,76,78,81,83,85,87,89,92,94,96,98,100,103,106,108,
%U 110,112,114,117,119
%N a(n) = n-th nonprime + n.
%C Complement of A171512(n). - _Jaroslav Krizek_, Dec 13 2009
%F a(n) = A018252(n) + n.
%e For n=3: 3rd nonprime is 6, 6 + 3 = 9.
%o (PARI) lista(nn) = {vn = vector(nn, n, n); vp = select(x->(! isprime(x)), vn); for (n=1, #vp, print1(vp[n] + n, ", "));} \\ _Michel Marcus_, Feb 02 2015
%K nonn
%O 1,1
%A _Jaroslav Krizek_, Dec 10 2009
|
