OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[ArcTan[ArcTan[x]*Tan[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Ray Chandler, Nov 28 2016 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
STATUS
approved