A009536 Expansion of sin(x)*cos(tanh(x)).

1, -4, 56, -1576, 70912, -4668544, 423673472, -50674728448, 7717401038848, -1456461190426624, 333308651379949568, -90869806167526899712, 29082416014569110142976, -10791837753739463345963008

Offset

0,2

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sin[x]*Cos[Tanh[x]], {x, 0, nn}], x] Range[ 0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Feb 29 2020 *)

Crossrefs

Sequence in context: A061924 A183612 A277038 * A009558 A113583 A174489

Adjacent sequences: A009533 A009534 A009535 * A009537 A009538 A009539

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, Feb 29 2020

Status

approved