|
|
A009448
|
|
E.g.f. sin(x*exp(x)).
|
|
7
|
|
|
0, 1, 2, 2, -8, -84, -504, -2304, -6656, 15760, 484000, 5348320, 44393856, 288642368, 1137006976, -5372233216, -195241910272, -2961479980800, -34259767672320, -320473550808576, -2158264400250880, -1727938748171264, 278774033845987328
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{j=0..(n-1)/2} binomial(n,2*j+1)*(2*j+1)^(n-2*j-1)*(-1)^j. - Vladimir Kruchinin, Jun 10 2011
|
|
MATHEMATICA
|
With[{nn=30}, CoefficientList[Series[Sin[x Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 17 2012 *)
|
|
PROG
|
(Maxima)
a(n):=sum(binomial(n, 2*j+1)*(2*j+1)^(n-2*j-1)*(-1)^j, j, 0, (n-1)/2); /* Vladimir Kruchinin, Jun 10 2011 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|