OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..250
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[x]Cos[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Feb 21 2016 *)
PROG
(PARI) x='x+O('x^60); v=Vec(serlaplace(cos(sin(x)*cos(x)))); vector(#v\2, n, v[2*n-1]) \\ G. C. Greubel, Jul 23 2018
CROSSREFS
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
More terms from and prior Mathematica program replaced by Harvey P. Dale, Feb 21 2016
STATUS
approved