A281510 a(n) = n! * Sum_{k=1..n} A008836(k)/k.

1, 1, 1, 10, 26, 276, 1212, 4656, 82224, 1185120, 9407520, 72973440, 469653120, 12802164480, 279210758400, 5775046502400, 77253000652800, 1034866583654400, 13260091383705600, 143556727265280000, 5447593280747520000, 170937994348154880000

Offset

1,4

Links

Daniel Suteu, Table of n, a(n) for n = 1..100

Wikipedia, Liouville function.

Mathematica

f[n_] := n!*Sum[(-1)^PrimeOmega[k]/k, {k, n}]; Array[f, 22] (* Robert G. Wilson v, Apr 13 2017 *)

Prog

(PARI) a(n) = n! * sum(k=1, n, (-1)^bigomega(k)/k);

Crossrefs

Cf. A008836, A280654.

Sequence in context: A235053 A217583 A301606 * A024168 A043107 A039284

Adjacent sequences: A281507 A281508 A281509 * A281511 A281512 A281513

Keyword

nonn

Author

Daniel Suteu, Apr 13 2017

Status

approved