login
Expansion of sin(x)*sin(sinh(x))/2.
0

%I #12 Oct 08 2017 15:15:02

%S 1,-64,25216,-31711744,93380755456,-538721831747584,

%T 5434440423098023936,-88353705160970793385984,

%U 2179843711161864280506105856,-77903078128153520290915516678144

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

%t With[{nn=50},Take[CoefficientList[Series[Sin[Sinh[x]*Sin[x]]/2,{x,0,nn}],x] Range[0,nn]!,{3,-1,4}]] (* _Harvey P. Dale_, Oct 08 2017 *)

%Y Cf. A012524.

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended by _Olivier GĂ©rard_, Mar 15 1997.

%E Prior Mathematica program replaced by _Harvey P. Dale_, Oct 08 2017