A009270 Expansion of exp(tanh(x)*sin(x)).

1, 2, 0, -98, 1400, 10442, -2400420, 182874382, -11026390960, 272975496722, 101146071584580, -35170244758056938, 8878370234261147000, -2024456851681157735398, 406854219864771946133100

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A132860 A156485 A307946 * A033838 A181373 A046065

Adjacent sequences: A009267 A009268 A009269 * A009271 A009272 A009273

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 15 2018

Status

approved