A009533 Expansion of sin(x)*cos(sin(x)).

1, -4, 36, -456, 7888, -184064, 5444544, -195982208, 8441139456, -428299217920, 25165446157312, -1689266143553536, 128288107134734336, -10929673010970984448, 1036413415736768512000, -108631436505463474716672

Offset

0,2

Links

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

Mathematica

With[{nn=40}, Take[CoefficientList[Series[Sin[x]*Cos[Sin[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Apr 18 2021 *)

Crossrefs

Sequence in context: A321963 A307903 A213596 * A372320 A135906 A197446

Adjacent sequences: A009530 A009531 A009532 * A009534 A009535 A009536

Keyword

sign

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Prior Mathematica program replaced by Harvey P. Dale, Apr 18 2021

Status

approved