%I #8 Nov 10 2017 07:37:41
%S 0,1,2,8,56,536,6528,96592,1683072,33760576,766283264,19417068032,
%T 543351873536,16642224306176,553782090473472,19893884376859648,
%U 767355755629215744,31631864049541107712,1387750771948607504384,64561526675221208563712
%N E.g.f.: -LambertW(-sin(x)).
%H G. C. Greubel, <a href="/A277498/b277498.txt">Table of n, a(n) for n = 0..385</a>
%F a(n) ~ (1-exp(-2))^(1/4) * (arcsin(exp(-1)))^(1/2-n) * exp(1/2-n) * n^(n-1).
%t CoefficientList[Series[-LambertW[-Sin[x]], {x, 0, 20}], x] * Range[0, 20]!
%o (PARI) x='x+O('x^50); concat([0], Vec(serlaplace(- lambertw(-sin(x))))) \\ _G. C. Greubel_, Nov 08 2017
%Y Cf. A238085, A277461, A277475, A277499, A277500.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Oct 18 2016
|