A024270 - OEIS

%I #11 Jun 10 2022 09:22:21

%S 0,1,-6,59,-908,18677,-487186,15884591,-629675288,29536549353,

%T -1613063972382,101389361542691,-7251646333534372,584069408536408797,

%U -52535046765694820650,5240820278389450723095,-576261065508176155275824

%N Expansion of sin(x)*sin(sin(x))/2.

%t With[{nn=40},Take[CoefficientList[Series[Sin[x]*Sin[Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 10 2022 *)

%Y Cf. A009546.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs Mar 1997

%E Previous Mathematica program replaced by _Harvey P. Dale_, Jun 10 2022