%I #11 Nov 11 2017 12:06:01
%S 0,1,2,8,52,476,5646,82368,1426888,28623376,652516090,16660233600,
%T 470930272572,14598765522368,492441140292934,17955574113204224,
%U 703714660937658128,29500170665998713088,1317136516654501334898,62399954043306802391040
%N E.g.f.: -sin(LambertW(-x)).
%H Robert Israel, <a href="/A277499/b277499.txt">Table of n, a(n) for n = 0..387</a>
%F a(n) ~ cos(1) * n^(n-1).
%p S:= series(-sin(LambertW(-x)),x,31):
%p seq(coeff(S,x,n)*n!, n=0..30); # _Robert Israel_, Oct 30 2016
%t CoefficientList[Series[-Sin[LambertW[-x]], {x, 0, 20}], x] * Range[0, 20]!
%o (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(-sin(lambertw(-x))))) \\ _G. C. Greubel_, Nov 08 2017
%Y Cf. A195136, A277461, A277498.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Oct 18 2016