login
A009533
Expansion of sin(x)*cos(sin(x)).
0
1, -4, 36, -456, 7888, -184064, 5444544, -195982208, 8441139456, -428299217920, 25165446157312, -1689266143553536, 128288107134734336, -10929673010970984448, 1036413415736768512000, -108631436505463474716672
OFFSET
0,2
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced by Harvey P. Dale, Apr 18 2021
STATUS
approved