%I #7 Apr 17 2022 14:40:52
%S 1,0,0,-4,0,-8,160,-992,1792,-50304,484224,-4573952,38725632,
%T -738222080,8292976640,-127954033664,1743232565248,-34953731964928,
%U 521161362997248,-10769261343309824,188842450602393600
%N Expansion of e.g.f.: exp(tanh(x)-arctanh(x))=1-4/3!*x^3-8/5!*x^5+160/6!*x^6-992/7!*x^7...
%t With[{nn=20},CoefficientList[Series[Exp[Tanh[x]-ArcTanh[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Apr 17 2022 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Apr 17 2022
|