A378596 Möbius transform of A119347, where A119347 number of distinct sums of nonempty subsets of divisors of n.

1, 2, 2, 4, 2, 7, 2, 8, 4, 10, 2, 12, 2, 10, 10, 16, 2, 23, 2, 23, 10, 10, 2, 24, 4, 10, 8, 37, 2, 38, 2, 32, 10, 10, 10, 36, 2, 10, 10, 40, 2, 62, 2, 44, 36, 10, 2, 48, 4, 44, 10, 44, 2, 73, 10, 56, 10, 10, 2, 57, 2, 10, 40, 64, 10, 110, 2, 44, 10, 105, 2, 72, 2, 10, 44, 44, 10, 134, 2, 80, 16, 10, 2, 75, 10, 10, 10

Offset

1,2

Links

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

Formula

a(n) = Sum_{d|n} A008683(d)*A119347(n/d).

a(n) = n - A378597(n).

Prog

(PARI)
A119347(n) = { my(c=[0]); fordiv(n, d, c = Set(concat(c, vector(#c, i, c[i]+d)))); (#c)-1; };
A378596(n) = sumdiv(n, d, moebius(n/d)*A119347(d));

Crossrefs

Cf. A008683, A119347, A378597.

Sequence in context: A383098 A348219 A122977 * A383093 A275870 A321721

Adjacent sequences: A378593 A378594 A378595 * A378597 A378598 A378599

Keyword

nonn

Author

Antti Karttunen, Dec 02 2024

Status

approved