%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