A344431 a(n) = Sum_{k=1..n} mu(k) * n^(k - 1).

1, -1, -11, -19, -654, 6439, -103298, -233543, -479042, 999089891, -23581102192, -56760341915, -23425343599215, 736752260240319, 31008836538146011, 76278687880642289, -48483493990740616866, -121045054967668089989, -104414952870932959886007

Offset: 1

Author

Seiichi Manyama, May 19 2021

Keywords

• sign

Links

• Seiichi Manyama, Table of n, a(n) for n = 1..388

Crossrefs

Cf. A008683, A023037, A127513, A292779, A343425.

Programs

Mathematica

a[n_] := Sum[MoebiusMu[k] * n^(k-1), {k,1,n}]; Array[a, 20] (* Amiram Eldar, May 19 2021 *)

PARI

a(n) = sum(k=1, n, moebius(k)*n^(k-1));