A024230 - OEIS

%I #10 Apr 02 2017 14:44:51

%S 0,1,-2,-21,-4,2677,49978,11487,-36275464,-1538399639,-22119645578,

%T 2006421812307,213180133008116,10489769063373277,-27722182352718926,

%U -68871270400638150585,-8464386105916692002320,-535985815068329924418863

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

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

%Y Cf. A009547.

%K sign

%O 0,3

%A _R. H. Hardin_

%E Extended with signs Mar 1997

%E Prior Mathematica program replaced by _Harvey P. Dale_, Dec 05 2015