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

Author

Antti Karttunen, Sep 19 2023

Keywords

• sign

Links

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

Crossrefs

Cf. A117966, A365711.

Cf. also A365714, A365804.

Programs

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(dA117966(n/d)*A365711(d),0)); mapput(memoA365711,n,v); (v)));
A365712(n) = (A117966(n)+A365711(n));

Formula

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

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