A207037 E.g.f. A(x) satisfies A(x-log(1+A(x))) = x.

1, 2, 15, 224, 5200, 167424, 6996122, 363310576, 22741864200, 1677611592480, 143328641594952, 13988817772571520, 1542398646441873168, 190361863036446487008, 26095697861706317389680, 3947266360959268571030784, 655067435627521423087457280

Offset

1,2

Links

Table of n, a(n) for n=1..17.

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

Adjacent sequences: A207034 A207035 A207036 * A207038 A207039 A207040

Keyword

nonn

Author

Vladimir Kruchinin, May 07 2012

Status

approved