proposed
approved
proposed
approved
editing
proposed
editing
proposed
Shifts A132039(n-1), n >= 1, one place left under MNL transform, see A274760. Pointed out by Paul D. Hanna. - Johannes W. Meijer, Aug 03 2016
nmax:=13: t1 := add(a(n)*x^n/n!, n=0..nmax): t2 := series(exp(add(a(n)*x^(n+1)/(n+1), n=0..nmax)), x, nmax+1): a(0) := 1: for n from 1 to nmax do a(n) := n!*coeff(t2, x, n) od: A132039 := proc(n): a(n) end: seq(A132039(n), n=0..nmax); # Johannes W. Meijer, Aug 03 2016
nonn,eigen
approved
editing
a(n+1) = Sum_{k=0..n} n!/k!*a(k)*a(n-k). - _Vladeta Jovovic (vladeta(AT)eunet.rs), _, Jul 08 2008
editing
approved
1, 1, 2, 8, 74, 2122, 267292, 194323504, 980945301116, 39560543100700028, 14356125485861852659544, 52095666080476161483596777824, 2079492908949143825845786572097662328, 996080457608702027557335524810508733871848312
E.g.f.: A(x) = 1 + 1x 1*x + 2x2*x^2/2! + 8x8*x^3/3! + 74x74*x^4/4! + 2122x2122*x^5/5! +...;
E.g.f.: A(x) = exp(x + 1x1*x^2/2 + 2x2*x^3/3 + 8x8*x^4/4 + 74x74*x^5/5 + 2122x2122*x^6/6 +...) .
approved
editing
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Aug 07 2007
a(n+1) = Sum_{k=0..n} n!/k!*a(k)*a(n-k). - Vladeta Jovovic (vladeta(AT)Euneteunet.yurs), Jul 08 2008
nonn,new
nonn