A360711 Partial sums of A360710.

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

Links

Rémy Sigrist, Table of n, a(n) for n = 0..10000

Rémy Sigrist, Scatterplot of (log(n), sign(a(n))*log(1+abs(a(n)))) for n <= 2^24

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

Adjacent sequences: A360708 A360709 A360710 * A360712 A360713 A360714

Keyword

sign,look

Author

Rémy Sigrist, Feb 17 2023

Status

approved