|
1, -1, -3, -1, -3, 2, 0, -2, 0, 5, 3, -4, -6, -1, 4, 6, 4, -3, -5, -12, -7, -2, -4, 5, 7, 12, 10, 3, 1, -15, -17, -19, -14, -9, -4, 10, 8, 13, 18, 27, 25, 9, 7, 0, -7, -2, -4, -15, -13, -20, -15, -22, -24, -15, -10, -1, 4, 9, 7, 37, 35, 40, 33, 35, 40, 24, 22, 15, 20, 4
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
This is G^(-1) in Schmidt article.
|
|
LINKS
|
|
|
PROG
|
(PARI) cOmega(n) = if (n==1, 1, my(f=factor(n)); bigomega(n)!*prod(k=1, #f~, 1/f[k, 2]!)); \\ A008480
gm(n) = (-1)^bigomega(n)*sumdiv(n, d, moebius(n/d)^2*cOmega(d)); \\ A341444
a(n) = sum(k=1, n, gm(k));
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|