OFFSET
0,2
MATHEMATICA
With[{nn=40}, Take[CoefficientList[Series[Tanh[Tan[x]]*Tan[x] , {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Feb 26 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Extended and signs tested Mar 15 1997 by Olivier Gérard.
More terms from and prior Mathematica program replaced by Harvey P. Dale, Feb 26 2015
STATUS
approved