|
%I #67 Oct 31 2023 11:21:53
%S 2,6,7,8,9,3,8,5,3,4,7,0,7,7,4,7,6,3,3,6,5,5,6,9,2,9,4,0,9,7,4,6,7,7,
%T 6,4,4,1,2,8,6,8,9,3,7,7,9,5,7,3,0,1,1,0,0,9,5,0,4,2,8,3,2,7,5,9,0,4,
%U 1,7,6,1,0,1,6,7,7,4,3,8,1,9,5,4,0,9,8,2,8,8,9,0,4,1,1,8,8,7,8,9,4,1,9,1,5
%N Decimal expansion of Gamma(1/3).
%C Nesterenko proves that this constant is transcendental (he cites Chudnovsky as the first to show this); in fact it is algebraically independent of Pi and exp(sqrt(3)*Pi) over Q. - _Charles R Greathouse IV_, Nov 11 2013
%D H. B. Dwight, Tables of Integrals and other Mathematical Data. 860.18, 860.19 in Definite Integrals. New York, U.S.A.: Macmillan Publishing, 1961, p. 230.
%H Harry J. Smith, <a href="/A073005/b073005.txt">Table of n, a(n) for n = 1..1000</a>
%H Yu V. Nesterenko, <a href="https://doi.org/10.1070/SM1996v187n09ABEH000158">Modular functions and transcendence questions</a>, Sbornik: Mathematics 187:9 (1996), pp. 1319-1348. (English translation)
%H Andrea Pinos, <a href="/A073005/a073005_1.pdf">Gamma of reciprocal by Laplace</a>.
%H Simon Plouffe, <a href="https://web.archive.org/web/20080205202306/https://worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap36.html">GAMMA(1/3)</a>.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Particular_values_of_the_Gamma_function#General_rational_arguments">Particular values of the Gamma function: General rational arguments</a>.
%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>.
%H <a href="/index/Ga#gamma_function">Index to sequences related to the Gamma function</a>.
%F this * A073006 = A186706. - _R. J. Mathar_, Jan 15 2021
%F From _Amiram Eldar_, Jun 25 2021: (Start)
%F Equals 2^(7/9) * Pi^(1/3) * K((sqrt(3)-1)/(2*sqrt(2)))^(1/3)/3^(1/12), where K is the complete elliptic integral of the first kind.
%F Equals 2^(7/9) * Pi^(2/3) /(AGM(2, sqrt(2+sqrt(3)))^(1/3) * 3^(1/12)), where AGM is the arithmetic-geometric mean. (End)
%F From _Andrea Pinos_, Aug 12 2023: (Start)
%F Equals Integral_{x=0..oo} 3*exp(-(x^3)) dx = 3*A202623.
%F General result: Gamma(1/n) = Integral_{x=0..oo} n*exp(-(x^n)) dx. (End)
%e Gamma(1/3) = 2.6789385347077476336556929409746776441286893779573011009...
%t RealDigits[ N[ Gamma[1/3], 110]][[1]]
%o (PARI) default(realprecision, 1080); x=gamma(1/3); for (n=1, 1000, d=floor(x); x=(x-d)*10; write("b073005.txt", n, " ", d)); \\ _Harry J. Smith_, Apr 19 2009
%o (Magma) R:= RealField(100); SetDefaultRealField(R); Gamma(1/3); // _G. C. Greubel_, Mar 10 2018
%Y Cf. A073006, A203145.
%K cons,nonn
%O 1,1
%A _Robert G. Wilson v_, Aug 03 2002
|
