A009046 Expansion of cos(sin(x)*cos(x)), even terms only.

1, -1, 17, -337, 9697, -451809, 29324913, -2348275633, 229227939521, -27378158737089, 3912000089144273, -649905519911431953, 123605642085065411233, -26737890902906532576673, 6532350281317524911044657, -1785601511004402102425350001

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

Sequence in context: A142933 A180676 A136270 * A012112 A294435 A361096

Adjacent sequences: A009043 A009044 A009045 * A009047 A009048 A009049

Keyword

sign

Author

R. H. Hardin

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