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

Author

R. H. Hardin

Keywords

• sign
• easy

Links

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

Crossrefs

Cf. A009017, A009565, A009635, A297009.

Programs

Mathematica

With[{nn=30},CoefficientList[Series[Sin[x Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* Harvey P. Dale, Mar 17 2012 *)

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 */

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

Extensions

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