|
MAPLE
|
read transforms; add(n^2*x^n/n!, n=1..30); series(%, x, 31): seriestoseries(%, 'revogf'); SERIESTOLISTMULT(%);
with(powseries):powcreate(t(n)=n^2/n!):seq(n!*coeff(tpsform(reversion(t), x, 19), x, n), n=0..18); spec:=[A, {A=Prod(Z, Set(A), Set(B)), B=Cycle(A)}, labeled]; seq(combstruct[count](spec, size=n), n=0..18); - Vladeta Jovovic (vladeta(AT)Eunet.yu), May 29 2007
|
