%I #18 Sep 08 2022 08:46:01
%S 1,5,4,3,8,8,1,7,4,1,8,1,5,6,6,1,6,9,8,7,2,0,1,1,9,3,8,8,4,1,3,1,7,0,
%T 1,9,3,5,5,2,1,8,1,7,3,3,2,3,6,3,1,4,0,1,5,8,1,5,6,1,3,8,0,6,7,9,0,9,
%U 2,6,1,3,1,7,0,1,2,0,2,3,7,7,1,9,5,5,5,4,9,4,7,5,9,3,2,1
%N Decimal expansion of Gamma(gamma).
%C Gamma is the Euler Gamma function, gamma is the Euler-Mascheroni constant A001620.
%H G. C. Greubel, <a href="/A202412/b202412.txt">Table of n, a(n) for n = 1..10000</a>
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Euler%E2%80%93Mascheroni_constant">Euler-Mascheroni constant</a>.
%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Gamma_function">Gamma function</a>.
%F gamma*Gamma(gamma) = exp(-gamma^2)*Prod_{n=1..oo} exp(gamma/n)/(1+gamma/n). -- Karl Weierstrass, 1854
%e 1.54388174181566169872011938841317019355218...
%t RealDigits[Gamma[EulerGamma], 10, 100][[1]]
%o (PARI) default(realprecision, 100); gamma(Euler) \\ _G. C. Greubel_, Sep 03 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Gamma(EulerGamma(R)); // _G. C. Greubel_, Sep 03 2018
%Y Cf. A001620, A073004.
%K nonn,cons
%O 1,2
%A _Peter Luschny_, Jan 12 2012
|