%I #15 Apr 02 2017 12:32:22
%S 0,0,2,-6,22,-100,308,1512,-51144,869472,-12648528,168624720,
%T -2029008720,19500193440,-52358834400,-4526884091520,184448883292800,
%U -5247799551052800,128265498107293440,-2787299439278250240
%N Expansion of e.g.f.: tanh(log(1+x)^2).
%e tanh(log(x+1)^2) = 2/2!*x^2-6/3!*x^3+22/4!*x^4-100/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Tanh[Log[1+x]^2],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 05 2016 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition (Name) clarified by and prior Mathematica program replaced by _Harvey P. Dale_, Mar 05 2016
|