%I #7 Jun 06 2020 13:31:28
%S 1,0,-3,-90,-4095,-283500,-28534275,-4001347350,-754083705375,
%T -185224922883000,-57754322803051875,-22343321962162451250,
%U -10514758311176393649375,-5917397284663573271062500
%N sech(log(x+1)-arctanh(x))=1-3/4!*x^4-90/6!*x^6-4095/8!*x^8...
%t With[{nn=30},Take[CoefficientList[Series[Sech[Log[x+1]-ArcTanh[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Jun 06 2020 *)
%K sign
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|