|
|
A277510
|
|
E.g.f.: -1/(1-LambertW(-x))^2.
|
|
4
|
|
|
-1, 2, -2, 6, 8, 170, 1872, 29246, 519808, 10698642, 248787200, 6458737142, 185138721792, 5808233422394, 197952647108608, 7283047491096750, 287705410381709312, 12145740050403520034, 545696709922799419392, 25998534614835587104742, 1309210567403228200960000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) ~ n^(n-1) / 4.
|
|
MATHEMATICA
|
CoefficientList[Series[-1/(1-LambertW[-x])^2, {x, 0, 20}], x] * Range[0, 20]!
|
|
PROG
|
(PARI) x='x+O('x^50); Vec(serlaplace(-1/(1 - lambertw(-x))^2)) \\ G. C. Greubel, Nov 08 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|