OFFSET
0,3
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[ArcTan[Log[Cos[x]]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 10 2019 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Added missing 0 at start, otherwise this is OK. - N. J. A. Sloane, Dec 17 2011
STATUS
approved