login
A009833
Expansion of tanh(x)*sin(sin(x)).
1
0, 2, -16, 248, -6336, 242464, -13219328, 982066816, -95757641728, 11884764271104, -1830773338714112, 342819066285905920, -76695821135067430912, 20204454465377182490624, -6190555048037337840746496
OFFSET
0,2
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, May 09 2016
STATUS
approved