%I #6 Dec 27 2016 19:24:46
%S 1,1,1,5,17,121,721,6621,56545,636337,7062241,94260341,1283497841,
%T 19853570985,319471153457,5628171840461,104260273696961,
%U 2063430523313761,43168502192389825,949149114720943077
%N Expansion of e.g.f.: exp(tan(arctanh(x)))=1+x+1/2!*x^2+5/3!*x^3+17/4!*x^4+121/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Exp[Tan[ArcTanh[x]]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Dec 27 2016 *)
%K nonn
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Dec 27 2016
|