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,4

Links

Table of n, a(n) for n=1..56.

Formula

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

Mathematica

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

Crossrefs

Cf. A065855, A002808.

Cf. A000217, A034387, A101203.

Sequence in context: A219714 A167132 A168326 * A116569 A058187 A188271

Adjacent sequences: A101253 A101254 A101255 * A101257 A101258 A101259

Keyword

nonn

Author

Reinhard Zumkeller, Jan 23 2005

Status

approved