|
%I #10 Oct 24 2013 17:16:09
%S 1,2,4,8,16,72,544,3936,25344,193920,1920384,21876736,246359040,
%T 2967878656,39508168704,589063146496,9120978370560,149737853943808,
%U 2587275558617088,48291040167362560,939278027083448320
%N exp(arctanh(x)+tanh(x)) = 1+2*x+4/2!*x^2+8/3!*x^3+16/4!*x^4+72/5!*x^5...
%F a(n) ~ 2*exp(tanh(1)) * n^n/exp(n) = 2*exp((exp(2)-1)/(exp(2)+1)) * n^n/exp(n). - _Vaclav Kotesovec_, Oct 24 2013
%t With[{nn=20},CoefficientList[Series[Exp[ArcTanh[x]+Tanh[x]],{x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 24 2011 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
