A024258 Expansion of sinh(sin(x)^2)/2.

0, 1, -4, 76, -3424, 156496, -8734144, 692856256, -71625432064, 8660992665856, -1209291525059584, 198287541178756096, -37919908685907042304, 8258774681248253464576, -2015504795625062206849024

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