%I #9 Nov 24 2018 15:42:01
%S 0,-1,-2,-1,148,7499,435898,32241299,3034190248,357512009399,
%T 51798976006198,9074564088169799,1893681694795266748,
%U 464586802573524130499,132469958743645663494898,43458963744363238693849499,16258850448552441418587853648,6882131151536073693976060834799,3272832457519325432770128200645998
%N sin(log(cos(x)))=-1/2!*x^2-2/4!*x^4-1/6!*x^6+148/8!*x^8+...
%t With[{nn=40},Take[CoefficientList[Series[Sin[Log[Cos[x]]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Nov 24 2018 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E More terms from _N. J. A. Sloane_, Dec 16 2011