OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..449
Vladimir Kruchinin and D. V. Kruchinin, Composita and their properties, arXiv:1103.2582 [math.CO], 2011-2013.
FORMULA
a(n) = n!*sum(m=1..n, sum(k=m..n,(k^(n-k)*sum(j=0..m, binomial(j,-3*m+k+2*j)*binomial(m,j)))/(n-k)!)/m!), n>0, a(0)=1.
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[x*Exp[x]+x^2 Exp[2x]+x^3 Exp[3x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 07 2016 *)
PROG
(Maxima)
a(n):=n!*sum(sum((k^(n-k)*sum(binomial(j, -3*m+k+2*j)*binomial(m, j), j, 0, m))/(n-k)!, k, m, n)/m!, m, 1, n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, Apr 23 2011
EXTENSIONS
More terms from Harvey P. Dale, Mar 07 2016
STATUS
approved