editing
approved
editing
approved
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 *)
approved
editing
More terms from _N. J. A. Sloane, _, Dec 16 2011
Patrick Demichel (dmlpatrick.demichel(AT)hpfrcu03.france.hp.com)
editing
approved
0, -1, -2, -1, 148, 7499, 435898, 32241299, 3034190248, 357512009399, 51798976006198, 9074564088169799, 1893681694795266748, 464586802573524130499, 132469958743645663494898, 43458963744363238693849499, 16258850448552441418587853648, 6882131151536073693976060834799, 3272832457519325432770128200645998
0,23
More terms from N. J. A. Sloane, Dec 16 2011
approved
editing
sign,done,new
sign
Patrick Demichel (dml@(AT)hpfrcu03.france.hp.com)
sign,done,new
sin(log(cos(x)))=-1/2!*x^2-2/4!*x^4-1/6!*x^6+148/8!*x^8+...
-1, -2, -1, 148, 7499, 435898, 32241299, 3034190248, 357512009399, 51798976006198, 9074564088169799, 1893681694795266748, 464586802573524130499, 132469958743645663494898
0,2
sign,done
Patrick Demichel ([email protected])
approved