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

Author

R. H. Hardin

Keywords

• sign

Programs

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 *)

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Previous Mathematica program replaced by Harvey P. Dale, Aug 03 2021