%I #27 Mar 31 2024 10:23:19
%S 6,9,13,16,21,25,31,34,39,47,51,58,63,67,72,79,86,89,97,103,106,113,
%T 118,125,135,140,143,149,153,158,173,179,186,189,200,203,211,218,223,
%U 230,237,241,253,256,261,264,277,291,296,299,305,313,316,327,334,341
%N Sum of n-th prime number and n-th composite number.
%D Ivan Grischenko, ivansasha(AT)mtu-net.ru, private communication.
%H Harry J. Smith, <a href="/A064799/b064799.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = prime(n) + composite(n).
%F From _Jaroslav Krizek_, Dec 13 2009: (Start)
%F a(n) = A000040(n) + A002808(n).
%F a(n) = A171639(n+1). (End)
%e a(1)=6 because the first prime is 2 and the first composite is 4; 2 + 4 = 6
%e a(2)=9 because prime(2)=3 and composite(2)=6; 3 + 6 = 9.
%t Module[{nn=100,cmps},cmps=Select[Range[nn],CompositeQ];Total/@Thread[{Prime[Range[ Length[ cmps]]],cmps}]] (* _Harvey P. Dale_, Mar 31 2024 *)
%o (PARI)
%o nextComp(n)= { if (!isprime(n), return(n)); return(n + 1) }
%o { p=1; c=3; for (n=1, 100, p=nextprime(p + 1); c=nextComp(c + 1); print1(p + c, ", ") ) } \\ _Harry J. Smith_, Sep 25 2009
%o (Python)
%o from sympy import prime, composite
%o def A064799(n): return prime(n)+composite(n) # _Chai Wah Wu_, Aug 30 2021
%Y Cf. A000040, A002808, A171639.
%K nonn,easy
%O 1,1
%A _Konstantin Knop_, Oct 21 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Nov 12 2001
%E Offset changed from 0 to 1 by _Harry J. Smith_, Sep 25 2009
|