%I #9 Sep 06 2019 11:19:13
%S 0,1,0,-24,-224,320,76032,2165632,23343104,-1474043904,-127160524800,
%T -5452094095360,-48051108446208,17669269569961984,2144050100688125952,
%U 144303119119098839040,2287457902532063395840
%N Expansion of sin(sinh(x))*x/2.
%t With[{nn=40},Take[CoefficientList[Series[Sin[Sinh[x]] x/2,{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Sep 06 2019 *)
%Y Cf. A009493.
%K sign
%O 0,4
%A _R. H. Hardin_
%E Extended with signs Mar 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Sep 06 2019
|