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,3

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A032370 A295834 A129908 * A129909 A174976 A003284

Adjacent sequences: A344428 A344429 A344430 * A344432 A344433 A344434

Keyword

sign

Author

Seiichi Manyama, May 19 2021

Status

approved