A233131 Sum of remainders of n modulo all smaller composite numbers.

0, 0, 0, 0, 0, 1, 2, 4, 2, 5, 9, 14, 9, 15, 21, 28, 24, 33, 27, 37, 33, 44, 56, 69, 52, 66, 81, 88, 87, 105, 92, 111, 102, 122, 143, 165, 139, 163, 187, 212, 196, 223, 209, 237, 239, 244, 274, 305, 266, 298, 296, 330, 335, 371, 347, 384, 368, 407, 447, 488, 432, 474, 516, 529, 513, 558, 543, 590, 599, 647, 637, 687, 620

Offset

0,7

Links

Table of n, a(n) for n=0..72.

Formula

a(n) = A004125(n) - A024934(n).

Mathematica

Table[Total[Mod[n, Select[Range[n-1], CompositeQ]]], {n, 0, 80}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 01 2018 *)

Crossrefs

Cf. A143853, A233344

Sequence in context: A347796 A011169 A279481 * A202395 A117903 A167685

Adjacent sequences: A233128 A233129 A233130 * A233132 A233133 A233134

Keyword

nonn

Author

Max Alekseyev, Dec 07 2013

Status

approved