|
|
|
|
0, 1, 2, 6, 24, 240, 5040, 110880, 2298240, 47900160, 1117670400, 31654022400, 1064820556800, 39404587622400, 1532420002713600, 62512065487872000, 2723498636931072000, 128376129298120704000, 6524556605528113152000, 352829667414210674688000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
nmax = 20; CoefficientList[InverseSeries[x - x^2 + x^3 - x^4 + O[x]^(nmax+1), x], x]*Range[0, nmax]! (* Jean-François Alcover, Jan 21 2019 *)
|
|
PROG
|
(PARI) seq(n)=Vec(serlaplace(serreverse(x - x^2 + x^3 - x^4 + O(x*x^n))), -(n+1)) \\ Andrew Howroyd, Nov 11 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Offset changed to zero and more terms added by Robert Price, Oct 19 2017
|
|
STATUS
|
approved
|
|
|
|