A009413 - OEIS

%I #16 Nov 16 2023 14:05:55

%S 0,1,-1,5,-12,69,-285,1833,-11536,91689,-782865,7685325,-82339884,

%T 973147629,-12466581309,172666976433,-2565893101440,40742019960785,

%U -688062399893505,12315242802523797,-232832786354392620

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

%F a(n) ~ (n-1)! * (-1)^(n+1) * cosh(sinh(1)). - _Vaclav Kotesovec_, Jan 23 2015

%t CoefficientList[Series[Cosh[Sinh[x]]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)

%K sign,easy

%O 0,4

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E One previous Mathematica program removed by _Harvey P. Dale_, Nov 16 2023