|
|
A366390
|
|
Dirichlet inverse of A366389.
|
|
3
|
|
|
1, -2, -3, 0, -5, 6, -7, 0, 0, 10, -26, 0, -22, 14, 15, 0, -17, 0, -25, 0, 21, 91, -29, 0, 6, 77, 0, 0, -23, -30, -31, 0, 123, 34, -28, 0, -82, 50, 75, 0, -74, -42, -106, -156, 0, 58, -122, 0, -21, -12, 51, -132, -86, 0, 142, 0, 111, 46, -110, 0, -94, 62, 0, 0, 155, -480, -97, 0, 93, 203, -113, 0, -73, 287, -66, 0, 275
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(1) = 1, and for n > 1, a(n) = -Sum_{d|n, d<n} A366389(n/d) * a(d).
|
|
PROG
|
(PARI)
A030101(n) = if(n<1, 0, subst(Polrev(binary(n)), x, 2));
A057889(n) = if(!n, n, A030101(n/(2^valuation(n, 2))) * (2^valuation(n, 2)));
A073675(n) = if(valuation(n, 2)%2, n/2, 2*n);
memoA366390 = Map();
A366390(n) = if(1==n, 1, my(v); if(mapisdefined(memoA366390, n, &v), v, v = -sumdiv(n, d, if(d<n, A366389(n/d)*A366390(d), 0)); mapput(memoA366390, n, v); (v)));
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|