login
A207037
E.g.f. A(x) satisfies A(x-log(1+A(x))) = x.
0
1, 2, 15, 224, 5200, 167424, 6996122, 363310576, 22741864200, 1677611592480, 143328641594952, 13988817772571520, 1542398646441873168, 190361863036446487008, 26095697861706317389680, 3947266360959268571030784, 655067435627521423087457280
OFFSET
1,2
FORMULA
a(n)=n!*T(n,1), T(n,m)=m/n*sum(k=1..n-m, sum(i=k..n-m, T(n-m,i)*stirling1(i,k)*k!/i!)*binomial(n+k-1,n-1)), n>m, T(n,n)=1.
PROG
(Maxima) array(TL, fixnum, 30, 30); T(n, m):=if n=m then 1 else if TL[n, m]=0 then TL[n, m]:m/n*sum(sum(T(n-m, i)*stirling1(i, k)*k!/i!, i, k, n-m)*binomial(n+k-1, n-1), k, 1, n-m) else TL[n, m]; makelist(n!*T(n, 1), n, 1, 25);
CROSSREFS
Sequence in context: A140054 A099085 A078365 * A218798 A176337 A145168
KEYWORD
nonn
AUTHOR
Vladimir Kruchinin, May 07 2012
STATUS
approved