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

1, -3, -3, 105, 1081, -5643, -547467, -12925983, 21466225, 19155660141, 1094661097965, 26420430767577, -1642571602653527, -274286926200408987, -20254768947790658715, -523768215819617513391, 104644184950018747924705

Offset

0,2

Links

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

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, Mar 06 2017 *)

Crossrefs

Sequence in context: A215560 A325486 A206485 * A176614 A173797 A173127

Adjacent sequences: A009488 A009489 A009490 * A009492 A009493 A009494

Keyword

sign

Author

R. H. Hardin

Extensions

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

Prior Mathematica program replaced by Harvey P. Dale, Mar 06 2017

Status

approved