login
A300821
Möbius transform of A244042.
4
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
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
KEYWORD
sign,base,look
AUTHOR
Antti Karttunen, Mar 14 2018
STATUS
approved