A009533 - OEIS

A009533

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

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

(list; graph; refs; listen; history; text; internal format)

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