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

0, 2, -16, 248, -6336, 242464, -13219328, 982066816, -95757641728, 11884764271104, -1830773338714112, 342819066285905920, -76695821135067430912, 20204454465377182490624, -6190555048037337840746496

Offset

0,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A012462 A012457 A138764 * A009044 A019318 A090727

Adjacent sequences: A009830 A009831 A009832 * A009834 A009835 A009836

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, May 09 2016

Status

approved