|
%I #18 Mar 31 2020 01:01:33
%S 2,1,2,8,1,2,1,1,2,1,1,3,1,1,9,1,4,1,3,1,7,1,1,3,6,2,2,1,1,32,3,3,3,1,
%T 24,2,2,25,1,2,1,6,2,1,1,3,1,9,3,2,1,6,7,2,8,2,5,1,5,1,2,2,2,2,4,3,1,
%U 5,1,15,1,1,2,4,3,3,1,5,1,4,1,8,1,3,1,1,8,2,1,2,1,514,1,2,1,1,1
%N Continued fraction for Gamma(1/3).
%H Harry J. Smith, <a href="/A030651/b030651.txt">Table of n, a(n) for n = 1..1000</a>
%H Gang Xiao, <a href="http://wims.unice.fr/~wims/en_tool~number~contfrac.en.html">Contfrac</a>
%H <a href="/index/Con#confC">Index entries for continued fractions for constants</a>
%F Note that 3 * Gamma(1/3) * Gamma(2/3) = 2 * Pi * sqrt(3).
%e Gamma(1/3) = 2.67893853470774... = 2 + 1/(1 + 1/(2 + 1/(8 + 1/(1 + ...)))). - _Harry J. Smith_, Apr 20 2009
%t ContinuedFraction[Gamma[1/3], 50] (* _Alonso del Arte_, Mar 30 2020 *)
%o (PARI) { default(realprecision, 1080); x=contfrac(gamma(1/3)); for (n=1, 1000, write("b030651.txt", n, " ", x[n])); } \\ _Harry J. Smith_, Apr 20 2009
%Y Cf. A030652.
%K nonn,cofr
%O 1,1
%A Paolo Dominici (pl.dm(AT)libero.it)
|
