%I #12 Feb 06 2022 05:39:05
%S 1,-2,18,-268,5580,-149368,4887368,-189010176,8434813760,
%T -426626153664,24118046539968,-1507010218083456,103135804627122816,
%U -7672260068001952512,616407170000568900864,-53192668792451354284032,4906864974307552234844160
%N a(n) = Sum_{k=0..n} (-2*k)^k * Stirling1(n,k).
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LambertW-Function.html">Lambert W-Function</a>.
%F E.g.f.: 1/(1 + LambertW( 2 * log(1+x) )), where LambertW() is the Lambert W-function.
%F a(n) ~ (-1)^n * exp(-1/2 - n + n*exp(-1)/2) * n^n / (sqrt(2) * (exp(exp(-1)/2) - 1)^(n+1/2)). - _Vaclav Kotesovec_, Feb 06 2022
%o (PARI) a(n) = sum(k=0, n, (-2*k)^k*stirling(n, k, 1));
%o (PARI) my(N=20, x='x+O('x^N)); Vec(serlaplace(1/(1+lambertw(2*log(1+x)))))
%Y Cf. A351274, A351277.
%K sign
%O 0,2
%A _Seiichi Manyama_, Feb 05 2022