A373855 a(n) = Sum_{k=1..n} k! * k^(n-1) * |Stirling1(n,k)|.

0, 1, 5, 80, 2690, 155074, 13658386, 1706098008, 286888266696, 62485391828448, 17112247116585744, 5755236604915060944, 2331975856351260982848, 1120439648590390138640304, 629855675998212293917375344, 409557081242059531918330384896

Offset

0,3

Links

Table of n, a(n) for n=0..15.

Formula

E.g.f.: Sum_{k>=1} (-log(1 - k*x))^k / k.

Mathematica

nmax=15; Range[0, nmax]!CoefficientList[Series[Sum[(-Log[1 - k*x])^k / k, {k, nmax}], {x, 0, nmax}], x] (* Stefano Spezia, Jun 19 2024 *)

Prog

(PARI) a(n) = sum(k=1, n, k!*k^(n-1)*abs(stirling(n, k, 1)));

Crossrefs

Cf. A003713, A373856.

Cf. A092552, A244585, A373857.

Cf. A320096.

Sequence in context: A144344 A062364 A277302 * A189443 A275091 A275347

Adjacent sequences: A373852 A373853 A373854 * A373856 A373857 A373858

Keyword

nonn

Author

Seiichi Manyama, Jun 19 2024

Status

approved