login
A300822
Möbius transform of A300222.
4
0, 2, 0, -2, 2, 4, 6, 8, 0, -4, 2, -4, 0, -6, 4, -2, 8, 12, 18, 22, 12, 14, 20, 16, 22, 24, 0, 0, 2, -8, 0, -4, 4, -4, 0, -12, 0, -18, 0, -28, 2, -12, 6, -8, 12, -4, 20, -4, 12, -2, 16, 0, 26, 36, 50, 48, 36, 50, 56, 44, 60, 60, 36, 52, 54, 28, 54, 52, 40, 60, 62, 48, 72, 72, 44, 72, 66, 48, 78, 82, 0, -4, 2, 0, -10, -6, 4, -10, 8, -24, -6, -14, 0
OFFSET
1,2
LINKS
FORMULA
a(n) = Sum_{d|n} moebius(n/d)*A300222(d).
a(n) = A000010(n) - A300821(n).
a(n) = A300222(n) - A300824(n).
MATHEMATICA
Table[DivisorSum[n, MoebiusMu[n/#] FromDigits[IntegerDigits[#, 3] /. 1 -> 0, 3] &], {n, 93}] (* Michael De Vlieger, Mar 17 2018 *)
PROG
(PARI)
A300222(n) = fromdigits(apply(x->(if (1==x, 0, x)), digits(n, 3)), 3);
A300822(n) = sumdiv(n, d, moebius(n/d)*A300222(d));
CROSSREFS
KEYWORD
sign,base
AUTHOR
Antti Karttunen, Mar 14 2018
STATUS
approved