|
| |
|
|
A009534
|
|
Expansion of sin(x)*cos(sinh(x)).
|
|
0
|
|
|
|
1, -4, -4, 104, 1360, -1024, -494272, -13790848, -68726528, 15167771648, 993154165760, 28626523621376, -1093475947065344, -226570569999351808, -17689046976830488576, -517441925077565734912, 83539213519199718670336
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,2
|
|
|
LINKS
|
Table of n, a(n) for n=0..16.
|
|
|
MATHEMATICA
|
With[{nn=40}, Take[CoefficientList[Series[Sin[x]*Cos[Sinh[x]], {x, 0, nn}], x] Range[0, nn-1]!, {2, -1, 2}]] (* Harvey P. Dale, Jan 15 2020 *)
|
|
|
CROSSREFS
|
Sequence in context: A217188 A092209 A068337 * A009559 A163196 A219453
Adjacent sequences: A009531 A009532 A009533 * A009535 A009536 A009537
|
|
|
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, Jan 15 2020
|
|
|
STATUS
|
approved
|
| |
|
|
