login
A009481
Expansion of sin(sin(x)*cos(x)).
0
1, -5, 57, -1661, 68529, -3570613, 247557481, -22399292077, 2476740370529, -323000223133285, 49350756905258905, -8776449485870211549, 1790258423701998409233, -412819053275844054102037
OFFSET
0,2
MATHEMATICA
With[{nn=30}, Take[CoefficientList[Series[Sin[Sin[x]*Cos[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Sep 07 2022 *)
CROSSREFS
Sequence in context: A234293 A244288 A009480 * A209498 A209739 A209460
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Sep 07 2022
STATUS
approved