A009413 Expansion of log(1+x)*cosh(sinh(x)).

0, 1, -1, 5, -12, 69, -285, 1833, -11536, 91689, -782865, 7685325, -82339884, 973147629, -12466581309, 172666976433, -2565893101440, 40742019960785, -688062399893505, 12315242802523797, -232832786354392620

Offset

0,4

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * cosh(sinh(1)). - Vaclav Kotesovec, Jan 23 2015

Mathematica

CoefficientList[Series[Cosh[Sinh[x]]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A129723 A219770 A246176 * A009429 A207821 A297644

Adjacent sequences: A009410 A009411 A009412 * A009414 A009415 A009416

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

One previous Mathematica program removed by Harvey P. Dale, Nov 16 2023

Status

approved