A009359 Expansion of log(1 + sinh(x)*sin(x)).

0, 2, -12, 232, -9632, 685472, -74545152, 11496925312, -2386930307072, 641870470410752, -217026250235707392, 90115671250751137792, -45080591297894376538112, 26741121618547455928082432

Offset

0,2

Links

Table of n, a(n) for n=0..13.

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Log[1+Sinh[x]*Sin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 03 2021 *)

Crossrefs

Sequence in context: A009272 A013141 A013143 * A011807 A182507 A348877

Adjacent sequences: A009356 A009357 A009358 * A009360 A009361 A009362

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, Aug 03 2021

Status

approved