A009533 - OEIS

%I #14 Apr 18 2021 15:54:06

%S 1,-4,36,-456,7888,-184064,5444544,-195982208,8441139456,

%T -428299217920,25165446157312,-1689266143553536,128288107134734336,

%U -10929673010970984448,1036413415736768512000,-108631436505463474716672

%N Expansion of sin(x)*cos(sin(x)).

%t With[{nn=40},Take[CoefficientList[Series[Sin[x]*Cos[Sin[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Apr 18 2021 *)

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, Apr 18 2021