OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Sin[Tan[x]Sinh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Oct 04 2014 *)
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
More terms from and prior Mathematica program replaced by Harvey P. Dale, Oct 04 2014
STATUS
approved