|
%I #9 Oct 24 2013 17:01:32
%S 1,2,4,9,24,97,534,3647,27272,232345,2170874,22882827,260563908,
%T 3272680621,43811275382,637916495327,9816624434928,162606798592913,
%U 2827858695802930,52505736635681875,1018209224687676028
%N exp(arctanh(x)+sin(x))=1+2*x+4/2!*x^2+9/3!*x^3+24/4!*x^4+97/5!*x^5...
%F a(n) ~ 2*exp(sin(1)) * n^n / exp(n). - _Vaclav Kotesovec_, Oct 24 2013
%t With[{nn=30},CoefficientList[Series[Exp[ArcTanh[x]+Sin[x]],{x,0,nn}],x]Range[0,nn]!] (* _Harvey P. Dale_, Oct 15 2012 *)
%K nonn
%O 0,2
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|
