|
| |
|
|
A024258
|
|
Expansion of sinh(sin(x)^2)/2.
|
|
0
|
|
|
|
0, 1, -4, 76, -3424, 156496, -8734144, 692856256, -71625432064, 8660992665856, -1209291525059584, 198287541178756096, -37919908685907042304, 8258774681248253464576, -2015504795625062206849024
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,3
|
|
|
LINKS
|
Table of n, a(n) for n=0..14.
|
|
|
MATHEMATICA
|
With[{nn=30}, Take[CoefficientList[Series[Sinh[Sin[x]^2]/2, {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Mar 06 2023 *)
|
|
|
CROSSREFS
|
Cf. A009596.
Sequence in context: A009631 A012020 A012041 * A012101 A012080 A012047
Adjacent sequences: A024255 A024256 A024257 * A024259 A024260 A024261
|
|
|
KEYWORD
|
sign
|
|
|
AUTHOR
|
R. H. Hardin
|
|
|
EXTENSIONS
|
Extended with signs Mar 1997
Previous Mathematica program replaced by Harvey P. Dale, Mar 06 2023
|
|
|
STATUS
|
approved
|
| |
|
|
