A009525 Expansion of sin(tanh(x))*x.

0, 2, -12, 222, -7672, 416410, -32324292, 3382216502, -457713511280, 77686268202162, -16145162631579900, 4030053480328871182, -1189173170586349109352, 409307310296375069013578

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A083667 A374871 A092124 * A009683 A132879 A377642

Adjacent sequences: A009522 A009523 A009524 * A009526 A009527 A009528

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, Sep 21 2019

Status

approved