A009495 Expansion of sin(sinh(x)*cos(x)).

1, -3, 17, -259, 961, 8349, -420847, 107714525, -291144191, -71679177795, -2546217250159, -1636072819714243, -8332868001077567, 9423739309853690205, 688800640548102542225, 203496392515640478835997

Offset

0,2

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Sin[Sinh[x]*Cos[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Apr 18 2026 *)

Crossrefs

Sequence in context: A210902 A188803 A084040 * A153487 A267658 A365364

Adjacent sequences: A009492 A009493 A009494 * A009496 A009497 A009498

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced by Harvey P. Dale, Apr 18 2026

Status

approved