A300822 Möbius transform of A300222.

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

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

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

Cf. A000010, A300222, A300821, A300824.

Sequence in context: A279158 A273166 A331262 * A118658 A165912 A301823

Adjacent sequences: A300819 A300820 A300821 * A300823 A300824 A300825

Keyword

sign,base

Author

Antti Karttunen, Mar 14 2018

Status

approved