Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A325313
a(n) = A048250(n) - n, where A048250(n) is the sum of squarefree divisors of n.
17
0, 1, 1, -1, 1, 6, 1, -5, -5, 8, 1, 0, 1, 10, 9, -13, 1, -6, 1, -2, 11, 14, 1, -12, -19, 16, -23, -4, 1, 42, 1, -29, 15, 20, 13, -24, 1, 22, 17, -22, 1, 54, 1, -8, -21, 26, 1, -36, -41, -32, 21, -10, 1, -42, 17, -32, 23, 32, 1, 12, 1, 34, -31, -61, 19, 78, 1, -14, 27, 74, 1, -60, 1, 40, -51, -16, 19, 90, 1, -62, -77, 44, 1, 12, 23, 46
OFFSET
1,6
FORMULA
a(n) = A048250(n) - n.
a(n) = A325314(n) - A033879(n).
a(A228058(n)) = -A325319(n).
MATHEMATICA
Array[DivisorSum[#, # &, SquareFreeQ] - # &, 86] (* Michael De Vlieger, Apr 21 2019 *)
PROG
(PARI)
A048250(n) = factorback(apply(p -> p+1, factor(n)[, 1]));
A325313(n) = (A048250(n) - n);
KEYWORD
sign
AUTHOR
Antti Karttunen, Apr 21 2019
STATUS
approved