login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A209519 Expansion A(x) = Sum_{n>0} a(n)*x^n/(3^(n-1)*n!), A(x) satisfies A(A(A(x)))=e^x-1. 0
1, 1, 0, 0, 2, -21, 138, 150, -22833, 303975, 3451320, -214016553, 666006714, 228865308144, -4943013567642, -396567325158381, 21423378444873687, 1022158819761317838, -121532275123709160942 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,5
LINKS
FORMULA
a(n)=3^(n-1)*n!*T(n,1), T(n,m)=1/3*(stirling2(n,m)*m!/n!-sum(k=m+1..n-1, T(k,m)*sum(i=k..n, T(n,i)*T(i,k)))-T(m,m)*sum(i=m+1..n-1, T(n,i)*T(i,m))), n>m, T(n,n)=1.
PROG
(Maxima)
T(n, m):=if n=m then 1 else 1/3*(stirling2(n, m)*m!/n!-sum(T(k, m)*sum(T(n, i)*T(i, k), i, k, n), k, m+1, n-1)-T(m, m)*sum(T(n, i)*T(i, m), i, m+1, n-1));
makelist(n!*3^(n-1)*(T(n, 1)), n, 1, 7);
CROSSREFS
Sequence in context: A171009 A098661 A095262 * A215710 A112673 A263435
KEYWORD
sign
AUTHOR
Vladimir Kruchinin, Mar 10 2012
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 18 22:56 EDT 2024. Contains 370952 sequences. (Running on oeis4.)