|
|
A002983
|
|
Expansion of e.g.f. 1/(1 - x*exp(x) + x^2*exp(2*x)).
|
|
1
|
|
|
1, 1, 2, -3, -92, -1015, -8274, -35483, 496280, 18127377, 344895130, 4427896781, 15653147412, -1300426685831, -53961316375498, -1345994948213355, -20836853905979984, 60576513730122017, 19579099820703961266, 894668319876527296669, 26059066415716831363820
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
nmax=20; CoefficientList[Series[1/(1-x*Exp[x]+x^2*Exp[2*x]), {x, 0, nmax}], x] Range[0, nmax]! (* Jinyuan Wang, Mar 17 2020 *)
|
|
PROG
|
(PARI) my(x='x+O('x^25)); Vec(serlaplace(1/(1 - x*exp(x) + x^2*exp(2*x)))) \\ Michel Marcus, Mar 17 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|