A101256 Sum of composites <= n.

0, 0, 0, 4, 4, 10, 10, 18, 27, 37, 37, 49, 49, 63, 78, 94, 94, 112, 112, 132, 153, 175, 175, 199, 224, 250, 277, 305, 305, 335, 335, 367, 400, 434, 469, 505, 505, 543, 582, 622, 622, 664, 664, 708, 753, 799, 799, 847, 896, 946, 997, 1049, 1049, 1103, 1158, 1214

Offset: 1

Author

Reinhard Zumkeller, Jan 23 2005

Keywords

• nonn

Crossrefs

Cf. A065855, A002808.

Cf. A000217, A034387, A101203.

Programs

Mathematica

Accumulate[Table[If[n<2,0,If[PrimeQ[n], 0, n]], {n, 1, 100}]] (* James C. McMahon, Jan 07 2024 *)

Formula

a(n) = A000217(n) - A034387(n) - 1 = A101203(n) - 1.