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

1, -4, -4, 104, 1360, -1024, -494272, -13790848, -68726528, 15167771648, 993154165760, 28626523621376, -1093475947065344, -226570569999351808, -17689046976830488576, -517441925077565734912, 83539213519199718670336

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A217188 A092209 A068337 * A009559 A163196 A219453

Adjacent sequences: A009531 A009532 A009533 * A009535 A009536 A009537

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, Jan 15 2020

Status

approved