|
|
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
(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 * A135906 A197446 A291313
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
|
|
|
|