login
E.g.f.: -sin(LambertW(-x)).
2

%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