A009497 Expansion of sin(x)*sin(sinh(x))/2.

1, -64, 25216, -31711744, 93380755456, -538721831747584, 5434440423098023936, -88353705160970793385984, 2179843711161864280506105856, -77903078128153520290915516678144

Offset

0,2

Links

Table of n, a(n) for n=0..9.

Mathematica

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 *)

Crossrefs

Cf. A012524.

Sequence in context: A082502 A052200 A146517 * A145258 A202911 A013743

Adjacent sequences: A009494 A009495 A009496 * A009498 A009499 A009500

Keyword

sign

Author

R. H. Hardin

Extensions

Extended by Olivier Gérard, Mar 15 1997.

Prior Mathematica program replaced by Harvey P. Dale, Oct 08 2017

Status

approved