login
A009359
Expansion of log(1 + sinh(x)*sin(x)).
3
0, 2, -12, 232, -9632, 685472, -74545152, 11496925312, -2386930307072, 641870470410752, -217026250235707392, 90115671250751137792, -45080591297894376538112, 26741121618547455928082432
OFFSET
0,2
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
KEYWORD
sign
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Aug 03 2021
STATUS
approved