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

1, -5, 57, -1661, 68529, -3570613, 247557481, -22399292077, 2476740370529, -323000223133285, 49350756905258905, -8776449485870211549, 1790258423701998409233, -412819053275844054102037

Offset

0,2

Links

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

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

Adjacent sequences: A009478 A009479 A009480 * A009482 A009483 A009484

Keyword

sign

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Sep 07 2022

Status

approved