A300821 Möbius transform of A244042.

1, -1, 2, 4, 2, -2, 0, -4, 6, 8, 8, 8, 12, 12, 4, 10, 8, -6, 0, -14, 0, -4, 2, -8, -2, -12, 18, 12, 26, 16, 30, 20, 16, 20, 24, 24, 36, 36, 24, 44, 38, 24, 36, 28, 12, 26, 26, 20, 30, 22, 16, 24, 26, -18, -10, -24, 0, -22, 2, -28, 0, -30, 0, -20, -6, -8, 12, -20, 4, -36, 8, -24, 0, -36, -4, -36, -6, -24, 0, -50, 54, 44, 80, 24

Offset

1,3

Links

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

Formula

a(n) = Sum_{d|n} moebius(n/d)*A244042(d).

a(n) = A000010(n) - A300822(n).

a(n) = A244042(n) - A300823(n).

Mathematica

Table[DivisorSum[n, MoebiusMu[n/#] FromDigits[IntegerDigits[#, 3] /. 2 -> 0, 3] &], {n, 84}] (* Michael De Vlieger, Mar 17 2018 *)

Prog

(PARI)
A244042(n) = fromdigits(apply(x->(x%2), digits(n, 3)), 3);
A300821(n) = sumdiv(n, d, moebius(n/d)*A244042(d));

Crossrefs

Cf. A000010, A244042, A300822, A300823.

Sequence in context: A152753 A113973 A123330 * A368795 A194564 A284690

Adjacent sequences: A300818 A300819 A300820 * A300822 A300823 A300824

Keyword

sign,base,look

Author

Antti Karttunen, Mar 14 2018

Status

approved