|
%I #7 May 25 2016 15:51:09
%S 1,0,0,-4,0,0,160,-1440,0,-17920,691200,-7257600,3942400,-395366400,
%T 14125363200,-175791616000,295206912000,-24049778688000,
%U 902471385088000,-13090802909184000,43911376404480000
%N Expansion of e.g.f.: exp(arctan(x)-arctanh(x))=1-4/3!*x^3+160/6!*x^6-1440/7!*x^7...
%t With[{nn=20},CoefficientList[Series[Exp[ArcTan[x]-ArcTanh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 25 2016 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, May 25 2016
|
