A100198 Let f(0) = -1, f(n) = Moebius(n) = A008683(n) for n>0. Sequence gives partial sums a(n) = Sum_{ 0 <= i <= n} f(i).

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

Offset: 0

Author

Jorge Coveiro, Dec 27 2004

Keywords

• sign

Crossrefs

See A002321 for a better version.

Programs

Maple

seq(abs(sum(mobius(x),x=0..a)),a=0..100);

Mathematica

Accumulate[Join[{-1},MoebiusMu[Range[110]]]] (* Harvey P. Dale, Jun 20 2017 *)