A365712 Sum of balanced ternary enumeration of integers (A117966) and its Dirichlet inverse.

2, 0, 0, 1, 0, -6, 0, -7, 9, -4, 0, 21, 0, 4, 12, 13, 0, -9, 0, -10, -12, -16, 0, -3, 4, -26, 27, -32, 0, 72, 0, -1, 48, -10, -8, 36, 0, 16, 78, 94, 0, 54, 0, 50, 18, 14, 0, 3, 4, 74, 30, 91, 0, -27, 32, -25, -48, -52, 0, -30, 0, -62, -18, -74, 52, 18, 0, -25, -42, -66, 0, -36, 0, -74, -78, -110, -32, 0, 0, -40, 81

Offset

1,1

Links

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

Formula

a(n) = A117966(n) + A365711(n).

a(1) = 2, and for n > 1, a(n) = -Sum_{d|n, 1<d<n} A117966(d) * A365711(n/d).

Prog

(PARI)
A117966(n) = subst(Pol(apply(x->if(x == 2, -1, x), digits(n, 3)), 'x), 'x, 3); \\ From A117966 by Gheorghe Coserea
memoA365711 = Map();
A365711(n) = if(1==n, 1, my(v); if(mapisdefined(memoA365711, n, &v), v, v = -sumdiv(n, d, if(d<n, A117966(n/d)*A365711(d), 0)); mapput(memoA365711, n, v); (v)));
A365712(n) = (A117966(n)+A365711(n));

Crossrefs

Cf. A117966, A365711.

Cf. also A365714, A365804.

Sequence in context: A346243 A349916 A349342 * A349914 A354105 A370366

Adjacent sequences: A365709 A365710 A365711 * A365713 A365714 A365715

Keyword

sign

Author

Antti Karttunen, Sep 19 2023

Status

approved