%I #12 Dec 04 2020 19:05:04
%S 0,1,-1,1,0,-14,150,-1154,6272,-10016,-305280,5160376,-49699056,
%T 248457496,1844013080,-69019386344,1062420810240,-9790634309504,
%U 3214679190912,2104758733135744,-52208434879690240,764746718991861376
%N Expansion of sinh(tanh(log(1+x))).
%t With[{nn=30},CoefficientList[Series[Sinh[Tanh[Log[1+x]]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Dec 04 2020 *)
%K sign,easy
%O 0,6
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Dec 04 2020
|