A009448 E.g.f. sin(x*exp(x)).

0, 1, 2, 2, -8, -84, -504, -2304, -6656, 15760, 484000, 5348320, 44393856, 288642368, 1137006976, -5372233216, -195241910272, -2961479980800, -34259767672320, -320473550808576, -2158264400250880, -1727938748171264, 278774033845987328

Offset

0,3

Links

Seiichi Manyama, Table of n, a(n) for n = 0..100

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

Cf. A009017, A009565, A009635, A297009.

Sequence in context: A297010 A012413 A012659 * A012410 A295382 A123642

Adjacent sequences: A009445 A009446 A009447 * A009449 A009450 A009451

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved