login
A010788
sin(log(cos(x)))=-1/2!*x^2-2/4!*x^4-1/6!*x^6+148/8!*x^8+...
0
0, -1, -2, -1, 148, 7499, 435898, 32241299, 3034190248, 357512009399, 51798976006198, 9074564088169799, 1893681694795266748, 464586802573524130499, 132469958743645663494898, 43458963744363238693849499, 16258850448552441418587853648, 6882131151536073693976060834799, 3272832457519325432770128200645998
OFFSET
0,3
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A358858 A012004 A101923 * A258819 A337051 A016448
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
More terms from N. J. A. Sloane, Dec 16 2011
STATUS
approved