A377373 - OEIS

A377373

Expansion of e.g.f. (1/x) * Series_Reversion( x / (exp(-x) + 2*x) ).

1, 1, 3, 14, 93, 794, 8335, 103774, 1496313, 24525458, 450478131, 9166307798, 204692557333, 4977320639290, 130918278855351, 3703846153114574, 112155490349101041, 3619411771703973410, 124011196515200953819, 4496024219722304736070, 171963129575721708667341

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

Table of n, a(n) for n=0..20.

Eric Weisstein's World of Mathematics, Lambert W-Function.

FORMULA

E.g.f.: (1/x) * LambertW(x / (1 - 2*x)).

a(n) = n! * Sum_{k=0..n} (-1)^k * 2^(n-k) * (k+1)^(k-1) * binomial(n,k)/k!.

a(n) = A376106(n+1)/(n+1).

PROG

(PARI) my(N=30, x='x+O('x^N)); Vec(serlaplace(lambertw(x/(1-2*x))/x))