%I #15 Jan 11 2024 10:24:23
%S 0,0,0,4,4,10,10,18,27,37,37,49,49,63,78,94,94,112,112,132,153,175,
%T 175,199,224,250,277,305,305,335,335,367,400,434,469,505,505,543,582,
%U 622,622,664,664,708,753,799,799,847,896,946,997,1049,1049,1103,1158,1214
%N Sum of composites <= n.
%F a(n) = A000217(n) - A034387(n) - 1 = A101203(n) - 1.
%t Accumulate[Table[If[n<2,0,If[PrimeQ[n], 0, n]], {n, 1, 100}]] (* _James C. McMahon_, Jan 07 2024 *)
%Y Cf. A065855, A002808.
%Y Cf. A000217, A034387, A101203.
%K nonn
%O 1,4
%A _Reinhard Zumkeller_, Jan 23 2005