OFFSET
0,1
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[ArcTan[ArcTan[x]+Tan[x]], {x, 0, nn}], x]Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, May 05 2012 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Corrected definition - N. J. A. Sloane, Dec 17 2011
STATUS
approved