OFFSET
0,6
EXAMPLE
[0] [1]
[1] [0, 1]
[2] [0, 1, 126]
[3] [0, 1, 3003, 126126]
[4] [0, 1, 107882, 23279256, 488864376]
[5] [0, 1, 3321890, 5319906900, 412275623760, 5194672859376]
MAPLE
CL := p -> PolynomialTools:-CoefficientList(p, x):
FL := p -> ListTools:-Flatten(p):
f := z -> (1/5)*(exp(z)+2*(+exp(1/4*z*(5^(1/2)-1))*cos(1/4*z*2^(1/2)*
(5+5^(1/2))^(1/2))+exp(-1/4*z*(5^(1/2)+1))*cos(1/4*z*2^(1/2)*(5-5^(1/2))^(1/2)))):
gf := exp(x*(f(z)-1)): ser := series(gf, z, 48):
FL([seq(CL(sort(expand((5*n)!*coeff(ser, z, n*5)), [x], ascending)), n=0..7)]);
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Peter Luschny, Aug 22 2018
STATUS
approved