%I #40 Sep 08 2022 08:44:59
%S 4,32,96,1024,2560,4096,28672,524288,1179648,5242880,11534336,
%T 100663296,218103808,939524096,134217728,68719476736,146028888064,
%U 206158430208,1305670057984,2199023255552,7696581394432,96757023244288,202310139510784,1125899906842624
%N Denominators in the Taylor series for arccosh(x) - log(2*x).
%D Bronstein-Semendjajew, sprawotchnik po matematikje, 6th Russian ed. 1956, ch. 4.2.6.
%H Vincenzo Librandi, <a href="/A052469/b052469.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/InverseHyperbolicCosecant.html">Inverse Hyperbolic Cosecant</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/InverseHyperbolicCosine.html">Inverse Hyperbolic Cosine</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/InverseHyperbolicSine.html">Inverse Hyperbolic Sine</a>
%F A052468(n) / a(n) = A001147(n) / ( A000165(n) *2*n )
%F From _Johannes W. Meijer_, Jul 06 2009: (Start)
%F a(n) = denom((2*n-1)!/( 4^n * (n!)^2)).
%F Equals 2*A162442(n+1) for n >= 1.
%F A052468(n)/a(n) = (1/(2*n))*A001790(n)/A046161(n) for n>=1.
%F (End)
%e arccosh(x) = log(2x) - 1/(4*x^2) - 3/(32*x^4) - 5/(96*x^6) - ... for x>1.
%t a[n_] := Denominator[(2*n-1)!/(2^(2*n)*n!^2)]; Array[a, 21] (* _Jean-François Alcover_, May 17 2017 *)
%o (Magma) [Denominator(Factorial(2*n-1)/( 2^(2*n)* Factorial(n)^2)): n in [1..30]]; // _Vincenzo Librandi_, Jul 10 2017
%o (PARI) {a(n) = denominator((2*n-1)!/(4^n*(n!)^2))}; \\ _G. C. Greubel_, May 18 2019
%o (Sage) [denominator(factorial(2*n-1)/(4^n*(factorial(n))^2)) for n in (1..30)] # _G. C. Greubel_, May 18 2019
%o (GAP) List([1..30], n-> DenominatorRat( Factorial(2*n-1)/(4^n*(Factorial(n))^2) )) # _G. C. Greubel_, May 18 2019
%Y Cf. A002595.
%K nonn,easy,frac
%O 1,1
%A _Eric W. Weisstein_
%E Updated by _Frank Ellermann_, May 22 2001