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
Keywords
Links
- Antti Karttunen, Table of n, a(n) for n = 1..19683
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(d
A117966(n/d)*A365711(d),0)); mapput(memoA365711,n,v); (v))); A365712(n) = (A117966(n)+A365711(n));