login
A360711
Partial sums of A360710.
2
0, 1, 0, -1, 0, 1, 2, 1, 0, -1, -2, -1, -2, -1, 0, -1, 0, 1, 2, 1, 2, 3, 2, 1, 2, 1, 0, -1, -2, -1, 0, 1, 0, -1, -2, -3, -4, -3, -2, -3, -4, -3, -4, -3, -2, -3, -2, -1, -2, -1, 0, -1, 0, 1, 2, 3, 4, 5, 4, 3, 2, 1, 0, 1, 0, 1, 2, 1, 2, 3, 4, 3, 4, 3, 2, 3, 2, 1
OFFSET
0,7
FORMULA
a(n) = Sum_{k = 1..n} A360710(k).
EXAMPLE
a(3) = A360710(1) + A360710(2) + A360710(3) = -1 - 1 + 1 = -1.
PROG
(PARI) { my (s=0, f); for (n=1, #a=vector(78), print1 (s", "); f=factor(n); s+=a[n]=if (#f~==1, if (s, -sign(s), a[n-1]), prod(k=1, #f~, a[f[k, 1]^f[k, 2]]))) }
CROSSREFS
Cf. A360710.
Sequence in context: A173389 A241062 A333471 * A284620 A038698 A333590
KEYWORD
sign,look
AUTHOR
Rémy Sigrist, Feb 17 2023
STATUS
approved