A306628 Expansion of e.g.f. log(Sum_{k>=0} (k*x)^k).

1, 7, 140, 5394, 336024, 30663840, 3846629520, 634415055120, 133073632016640, 34596321663980160, 10919217470376902400, 4113179201266142515200, 1822997615295693513600000, 939158618068666181592806400, 556530141861219809204393472000

Offset

1,2

Links

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

Formula

a(n) ~ n! * n^n. - Vaclav Kotesovec, Mar 02 2019

Mathematica

nmax = 20; Rest[CoefficientList[Series[Log[1 + Sum[(k*x)^k, {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0, nmax]!] (* Vaclav Kotesovec, Mar 02 2019 *)

Prog

(PARI) N=20; x='x+O('x^N); Vec(serlaplace(log(sum(k=0, N, (k*x)^k))))

Crossrefs

Cf. A000142, A000312, A122949.

Sequence in context: A085708 A054606 A351280 * A302912 A191956 A215042

Adjacent sequences: A306625 A306626 A306627 * A306629 A306630 A306631

Keyword

nonn

Author

Seiichi Manyama, Mar 01 2019

Status

approved