A382942 a(n) = Sum_{k=1..n} A382883(k).

1, 0, -1, 0, -1, 0, -1, 0, 1, 2, 1, 1, 0, 1, 2, 2, 1, 1, 0, 0, 1, 2, 1, 1, 2, 3, 4, 4, 3, 2, 1, 2, 3, 4, 5, 4, 3, 4, 5, 5, 4, 3, 2, 2, 2, 3, 2, 2, 3, 3, 4, 4, 3, 3, 4, 4, 5, 6, 5, 5, 4, 5, 5, 4, 5, 4, 3, 3, 4, 3, 2, 2, 1, 2, 2, 2, 3, 2, 1, 1, 1, 2, 1, 1, 2, 3

Offset

1,10

Comments

See the comments in A382883.

Links

Table of n, a(n) for n=1..86.

Mathematica

V[n_, e_] := If[e == 1, 1, IntegerExponent[n, e]]; f[n_] := f[n] = -DivisorSum[n, V[n, #] * f[#] &, # < n &]; f[1] = 1; Accumulate[Array[f, 100]] (* Amiram Eldar, Apr 29 2025 *)

Prog

(SageMath)
def A382942(n: int): return sum(A382883(k) for k in range(n + 1))
print([A382942(n) for n in range(1, 87)])

Crossrefs

Cf. A382883, A002321.

Sequence in context: A054078 A029400 A370173 * A344612 A069713 A319453

Adjacent sequences: A382939 A382940 A382941 * A382943 A382944 A382945

Keyword

sign

Author

Peter Luschny, Apr 10 2025

Status

approved