login
A326185
a(n) = sigma(n) - A057521(n) - n.
4
-1, 0, 0, -1, 0, 5, 0, -1, -5, 7, 0, 12, 0, 9, 8, -1, 0, 12, 0, 18, 10, 13, 0, 28, -19, 15, -14, 24, 0, 41, 0, -1, 14, 19, 12, 19, 0, 21, 16, 42, 0, 53, 0, 36, 24, 25, 0, 60, -41, 18, 20, 42, 0, 39, 16, 56, 22, 31, 0, 104, 0, 33, 32, -1, 18, 77, 0, 54, 26, 73, 0, 51, 0, 39, 24, 60, 18, 89, 0, 90, -41, 43, 0, 136, 22, 45, 32, 84, 0
OFFSET
1,6
FORMULA
a(n) = A326184(n) - n = sigma(n) - A057521(n) - n.
a(n) = A001065(n) - A057521(n).
PROG
(PARI)
A057521(n) = { my(f=factor(n)); prod(i=1, #f~, if(f[i, 2]>1, f[i, 1]^f[i, 2], 1)); }; \\ From A057521.
A326185(n) = ((sigma(n)-A057521(n))-n);
CROSSREFS
KEYWORD
sign
AUTHOR
Antti Karttunen, Jul 11 2019
STATUS
approved