|
%I #14 Jun 22 2015 22:19:10
%S 0,1,-1,0,-4,20,-121,896,-7344,68304,-711721,8200192,-103603204,
%T 1424807488,-21191898001,339004274688,-5804468899584,105924311382272,
%U -2052443682726961,42085719065821184,-910506730330968484
%N Expansion of log(1+sinh(x))*cos(x).
%F a(n) ~ (n-1)! * (-1)^(n+1) * cos(log(1+sqrt(2))) / (log(1+sqrt(2)))^n. - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Sinh[ x ] ]*Cos[ x ]
%t CoefficientList[Series[Cos[x]*Log[1 + Sinh[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
