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

1, -6, 72, -1904, 89344, -6445824, 660602880, -91175548928, 16301080281088, -3664597991424000, 1011727950085619712, -336514395583207178240, 132722531082033166286848, -61245140659205655654039552

Offset

0,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..100

Mathematica

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

Crossrefs

Sequence in context: A099029 A120331 A009523 * A259212 A279234 A132878

Adjacent sequences: A009790 A009791 A009792 * A009794 A009795 A009796

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, Jun 18 2013

Status

approved