A318326 a(n) = Sum_{d|n} [moebius(n/d) < 0]*(sigma(d)-d).

0, 0, 0, 1, 0, 2, 0, 3, 1, 2, 0, 9, 0, 2, 2, 7, 0, 10, 0, 11, 2, 2, 0, 23, 1, 2, 4, 13, 0, 23, 0, 15, 2, 2, 2, 37, 0, 2, 2, 29, 0, 27, 0, 17, 13, 2, 0, 51, 1, 14, 2, 19, 0, 34, 2, 35, 2, 2, 0, 81, 0, 2, 15, 31, 2, 35, 0, 23, 2, 31, 0, 91, 0, 2, 15, 25, 2, 39, 0, 65, 13, 2, 0, 99, 2, 2, 2, 47, 0, 97, 2, 29, 2, 2, 2, 107, 0, 18, 19, 65, 0, 47

Offset

1,6

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Formula

a(n) = Sum_{d|n} [A008683(n/d) == -1]*A001065(d).

a(n) = A318325(n) - A051953(n).

a(n) = A318320(n) - A318442(n).

Prog

(PARI) A318326(n) = sumdiv(n, d, (-1==moebius(n/d))*(sigma(d)-d));

Crossrefs

Cf. A001065, A051953, A291784, A318320, A318325, A318442.

Sequence in context: A343879 A275387 A051709 * A329646 A293813 A218585

Adjacent sequences: A318323 A318324 A318325 * A318327 A318328 A318329

Keyword

nonn

Author

Antti Karttunen, Aug 26 2018

Status

approved