A099739 a(n) = Sum_{k=1..n} k!*mu(k), where mu() is the Moebius function.

1, -1, -7, -7, -127, 593, -4447, -4447, -4447, 3624353, -36292447, -36292447, -6263313247, 80914977953, 1388589345953, 1388589345953, -354298838750047, -354298838750047, -121999399247582047, -121999399247582047

Offset

1,3

Links

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

Mathematica

f[n_] := Sum[k!MoebiusMu[k], {k, n}]; Table[ f[n], {n, 20}] (* Robert G. Wilson v, Nov 12 2004 *)

Prog

(PARI) a(n) = sum(k=1, n, moebius(k)*k!); \\ Seiichi Manyama, May 19 2021

Crossrefs

Cf. A002321.

Sequence in context: A178708 A072399 A001988 * A261128 A353583 A048430

Adjacent sequences: A099736 A099737 A099738 * A099740 A099741 A099742

Keyword

sign

Author

Leroy Quet, Nov 09 2004

Extensions

More terms from Robert G. Wilson v, Nov 12 2004

Status

approved