%I #27 Oct 02 2021 07:57:18
%S 0,1,2,2,-8,-84,-504,-2304,-6656,15760,484000,5348320,44393856,
%T 288642368,1137006976,-5372233216,-195241910272,-2961479980800,
%U -34259767672320,-320473550808576,-2158264400250880,-1727938748171264,278774033845987328
%N E.g.f. sin(x*exp(x)).
%H Seiichi Manyama, <a href="/A009448/b009448.txt">Table of n, a(n) for n = 0..100</a>
%F 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
%t With[{nn=30},CoefficientList[Series[Sin[x Exp[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 17 2012 *)
%o (Maxima)
%o 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 */
%Y Cf. A009017, A009565, A009635, A297009.
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997