login
A277508
E.g.f.: -1/((1-LambertW(-x))*(1+x)).
3
-1, 2, -4, 15, -44, 385, -294, 32473, 280120, 8528049, 170757910, 4748977321, 132530188308, 4210910824393, 142940443542274, 5273270156096265, 208276214340505456, 8800344095155520353, 395536292522024420142, 18853858817276143333321, 949787282108877829653580
OFFSET
0,2
LINKS
FORMULA
a(n) ~ n^(n-1) / (4*(1+exp(-1))).
MATHEMATICA
CoefficientList[Series[-1/(1-LambertW[-x])/(1+x), {x, 0, 20}], x] * Range[0, 20]!
PROG
(PARI) x='x+O('x^50); Vec(serlaplace(-1/((1 - lambertw(-x))*(1+x)))) \\ G. C. Greubel, Nov 08 2017
CROSSREFS
Sequence in context: A284728 A072206 A296255 * A332234 A316726 A308345
KEYWORD
sign
AUTHOR
Vaclav Kotesovec, Oct 18 2016
STATUS
approved