login
A009793
Expansion of tanh(sin(x))*cos(x).
1
1, -6, 72, -1904, 89344, -6445824, 660602880, -91175548928, 16301080281088, -3664597991424000, 1011727950085619712, -336514395583207178240, 132722531082033166286848, -61245140659205655654039552
OFFSET
0,2
LINKS
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Jun 18 2013
STATUS
approved