login
A009046
Expansion of cos(sin(x)*cos(x)), even terms only.
1
1, -1, 17, -337, 9697, -451809, 29324913, -2348275633, 229227939521, -27378158737089, 3912000089144273, -649905519911431953, 123605642085065411233, -26737890902906532576673, 6532350281317524911044657, -1785601511004402102425350001
OFFSET
0,3
LINKS
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
Sequence in context: A142933 A180676 A136270 * A012112 A294435 A361096
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