|
| |
|
|
A009635
|
|
Expansion of e.g.f. tan(x*exp(x)).
|
|
9
|
|
|
|
0, 1, 2, 5, 28, 201, 1566, 14349, 154456, 1870225, 25034650, 368887573, 5938767924, 103580577881, 1945112687350, 39137964503837, 840076566197552, 19158967944112929, 462642378426338994, 11792392190823752229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Seiichi Manyama, Table of n, a(n) for n = 0..100
|
|
|
FORMULA
|
a(n) = 2*Sum_{m=0..floor((n-1)/2)} binomial(n, 2*m+1)*(2*m+1)^(n-2*m-1 * Sum_{j=1..2*m+1} j!*2^(2*m-j)*(-1)^(m+1+j)*Stirling2(2*m+1, j)). - Vladimir Kruchinin, Jun 10 2011
|
|
|
MATHEMATICA
|
terms = 20;
egf = Tan[x*Exp[x]] + O[x]^terms ;
CoefficientList[egf, x] Range[0, terms - 1]! (* Jean-François Alcover, Sep 24 2019 *)
|
|
|
PROG
|
(Maxima)
a(n):=2*sum(binomial(n, 2*m+1)*(2*m+1)^(n-2*m-1)*sum(j!*2^(2*m-j)*(-1)^(m+1+j)*stirling2(2*m+1, j), j, 1, 2*m+1), m, 0, (n-1)/2); /* Vladimir Kruchinin, Jun 10 2011 */
|
|
|
CROSSREFS
|
Cf. A009017, A009448, A009768, A191719.
Sequence in context: A318590 A072371 A019043 * A216401 A342288 A324264
Adjacent sequences: A009632 A009633 A009634 * A009636 A009637 A009638
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
R. H. Hardin
|
|
|
EXTENSIONS
|
Extended, reformatted, offset corrected 03/97.
|
|
|
STATUS
|
approved
|
| |
|
|
