login
Expansion of log(1+sinh(x)*cos(x)).
1

%I #15 Nov 10 2024 14:51:48

%S 0,1,-1,0,2,-20,104,-560,2512,-7920,-32896,1034880,-14979328,

%T 172569280,-1684304896,12339608320,-15173408768,-1902800305920,

%U 53242752303104,-1037015219466240,16518488951816192,-208832669083243520

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

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

%K sign,easy

%O 0,5

%A _R. H. Hardin_

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

%E First (incomplete) Mathematica program removed by _Harvey P. Dale_, Nov 10 2024