|
%I #11 Jun 29 2014 03:24:49
%S 1,1,3,18,27,648,68040,136080,51030,653184,4849891200,203695430400,
%T 43649020800,1466607098880,285988384281600,8579651528448000,
%U 15014390174784000,64061398079078400,2793397263238213632000,184364219373722099712000,9669452065055354880000,46459783282177969127424000,16028625232351399348961280000
%N Denominators of coefficients in Taylor series expansion of arccosh(exp(x)-sin(x)).
%H Vincenzo Librandi, <a href="/A202359/b202359.txt">Table of n, a(n) for n = 0..100</a>
%e x+1/3*x^2-1/18*x^3-1/27*x^4-5/648*x^5+503/68040*x^6+521/136080*x^7-13/51030*x^8...
%t Join[{1},Denominator[List@@(Normal[CoefficientList[Series[ArcCosh[ Exp[x]- Sin[x]],{x,0,30}],x] [[1,2]]])]] (* _Harvey P. Dale_, Jun 28 2014 *)
%Y Cf. A013305.
%K nonn,frac
%O 0,3
%A _N. J. A. Sloane_, Dec 17 2011
|
