|
%I #6 Nov 21 2013 12:49:43
%S 1,2,4,6,6,6,10,11,11,12,14,17,18,16,22,22,23,22,22,26,29,30,31,27,34,
%T 35,32,34,38,39,42,38,46,44,47,46,46,51,48,53,54,48,58,57,57,61,58,62,
%U 65,62,60,70,69,70,73,70,70,76,78,72,81,82,83,80,78,87,86,89,90,91,84
%N The n-th composite minus the number of its divisors.
%F a(n)=A002808(n)-A000005(A002808(n)) = A002808(n)-A035004(n+1).
%e a(1)=4-3=1, a(2)=6-4=2, a(3)=8-4=4.
%t With[{comps=Rest[Complement[Range[100],Prime[Range[PrimePi[100]]]]]}, #-DivisorSigma[0,#]&/@comps] (* _Harvey P. Dale_, Dec 16 2011 *)
%Y Cf. A000005, A002808.
%K nonn
%O 1,2
%A _Juri-Stepan Gerasimov_, Oct 26 2009
%E Formula and two entries corrected by _R. J. Mathar_, May 21 2010.
|
