A009339 Expansion of log(1+sin(x)*cosh(x)).

0, 1, -1, 4, -14, 60, -376, 2784, -23344, 225680, -2467456, 29884864, -397908224, 5784292800, -91090625536, 1544557830144, -28061704443904, 543835022577920, -11198060484591616, 244140571254682624, -5618495694469136384

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Log[1+Sin[x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 06 2025 *)

Crossrefs

Sequence in context: A349018 A259104 A082033 * A050912 A250399 A149494

Adjacent sequences: A009336 A009337 A009338 * A009340 A009341 A009342

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, Jun 06 2025

Status

approved