A010788 sin(log(cos(x)))=-1/2!*x^2-2/4!*x^4-1/6!*x^6+148/8!*x^8+...

0, -1, -2, -1, 148, 7499, 435898, 32241299, 3034190248, 357512009399, 51798976006198, 9074564088169799, 1893681694795266748, 464586802573524130499, 132469958743645663494898, 43458963744363238693849499, 16258850448552441418587853648, 6882131151536073693976060834799, 3272832457519325432770128200645998

Offset

0,3

Links

Table of n, a(n) for n=0..18.

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

Adjacent sequences: A010785 A010786 A010787 * A010789 A010790 A010791

Keyword

sign

Author

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

Extensions

More terms from N. J. A. Sloane, Dec 16 2011

Status

approved