cp's OEIS Frontend

A277473 E.g.f.: -exp(x)*LambertW(-x).

%I A277473 #13 Jul 17 2022 23:30:56
%S A277473 0,1,4,18,116,1060,12702,187810,3296120,66897288,1540762010,
%T A277473 39693752494,1130866726596,35300006582620,1198036854980630,
%U A277473 43921652697277170,1729775120233353968,72831210167041246480,3264674481128340280242,155220967397580333229270
%N A277473 E.g.f.: -exp(x)*LambertW(-x).
%H A277473 G. C. Greubel, <a href="/A277473/b277473.txt">Table of n, a(n) for n = 0..385</a>
%F A277473 a(n) = Sum_{k=1..n} binomial(n,k) * k^(k-1).
%F A277473 a(n) ~ exp(exp(-1)) * n^(n-1).
%t A277473 CoefficientList[Series[-Exp[x]*LambertW[-x], {x, 0, 20}], x] * Range[0, 20]!
%t A277473 Table[Sum[Binomial[n, k]*k^(k-1), {k, 1, n}], {n, 0, 20}]
%o A277473 (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(-exp(x)*lambertw(-x)))) \\ _G. C. Greubel_, Jun 11 2017
%Y A277473 Cf. A000169, A069856, A086331, A277474.
%Y A277473 Partial sums of A038051.
%K A277473 nonn
%O A277473 0,3
%A A277473 _Vaclav Kotesovec_, Oct 17 2016