|
%I #12 Oct 24 2013 17:17:10
%S 1,2,4,9,24,105,630,4095,27720,235305,2353050,24792075,267567300,
%T 3350672325,46909412550,682570263375,10103827734000,167108397080625,
%U 3007951147451250,55823919598321875,1049953727680357500
%N exp(arctanh(x)+arcsinh(x)) = 1+2*x+4/2!*x^2+9/3!*x^3+24/4!*x^4+105/5!*x^5...
%F E.g.f.: ((x+1)/sqrt(1-x^2))*(x+sqrt(1+x^2)). - _Vaclav Kotesovec_, Oct 24 2013
%F a(n) ~ 2*(1+sqrt(2)) * n^n / exp(n). - _Vaclav Kotesovec_, Oct 24 2013
%t CoefficientList[Series[Exp[ArcTanh[x]+ArcSinh[x]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 24 2013 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
