A277498 E.g.f.: -LambertW(-sin(x)).

0, 1, 2, 8, 56, 536, 6528, 96592, 1683072, 33760576, 766283264, 19417068032, 543351873536, 16642224306176, 553782090473472, 19893884376859648, 767355755629215744, 31631864049541107712, 1387750771948607504384, 64561526675221208563712

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..385

Formula

a(n) ~ (1-exp(-2))^(1/4) * (arcsin(exp(-1)))^(1/2-n) * exp(1/2-n) * n^(n-1).

Mathematica

CoefficientList[Series[-LambertW[-Sin[x]], {x, 0, 20}], x] * Range[0, 20]!

Prog

(PARI) x='x+O('x^50); concat([0], Vec(serlaplace(- lambertw(-sin(x))))) \\ G. C. Greubel, Nov 08 2017

Crossrefs

Cf. A238085, A277461, A277475, A277499, A277500.

Sequence in context: A316142 A109618 A201128 * A097691 A181939 A124212

Adjacent sequences: A277495 A277496 A277497 * A277499 A277500 A277501

Keyword

nonn

Author

Vaclav Kotesovec, Oct 18 2016

Status

approved