login
arctan(log(cos(x)))=-1/2!*x^2-2/4!*x^4+14/6!*x^6+568/8!*x^8...
0

%I #9 Aug 10 2019 10:57:38

%S 0,-1,-2,14,568,2144,-1061312,-65851696,3745115008,1232648783744,

%T 50799435228928,-36670923310299136,-8828746813705828352,

%U 954888000296009790464,1122466427244127979911168

%N arctan(log(cos(x)))=-1/2!*x^2-2/4!*x^4+14/6!*x^6+568/8!*x^8...

%t 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 *)

%K sign

%O 0,3

%A Patrick Demichel (patrick.demichel(AT)hp.com)

%E Added missing 0 at start, otherwise this is OK. - _N. J. A. Sloane_, Dec 17 2011