%I #26 Sep 08 2022 08:45:54
%S 1,4,4,9,2,2,9,6,0,2,2,6,9,8,9,6,6,0,0,3,7,7,8,7,9,7,9,0,6,2,9,7,6,8,
%T 3,3,7,0,8,4,0,8,9,8,9,0,9,6,6,6,7,6,0,7,5,3,3,7,0,2,3,8,5,8,1,3,8,9,
%U 1,1,8,0,7,9,4,2,7,9,7,4,7,1,9,1,2,9,4,0,4,9,1,6,9,6,5,7,0,3,1,4,2,8,5,4,3
%N Decimal expansion of the factorial of Golden Ratio.
%H G. C. Greubel, <a href="/A178840/b178840.txt">Table of n, a(n) for n = 1..10000</a>
%F Factorial of Golden Ratio = Gamma(1 + phi) = Gamma((3 + sqrt(5))/2). - _Bernard Schott_, Jan 21 2019
%F Equals Gamma((sqrt(5) - 1)/2). - _Vaclav Kotesovec_, Jan 21 2019
%e 1.44922960226989660037787979062976833708408989096667607533702385813891...
%p evalf(GAMMA(1+evalf((1+sqrt(5))/2,100)),106); # Golden ratio
%t RealDigits[Gamma[(Sqrt[5] - 1)/2], 10, 120][[1]] (* _Vaclav Kotesovec_, Jan 20 2019 *)
%o (PARI) default(realprecision, 100); gamma((sqrt(5)-1)/2) \\ _G. C. Greubel_, Jan 21 2019
%o (Magma) SetDefaultRealField(RealField(100)); Gamma((Sqrt(5)-1)/2); // _G. C. Greubel_, Jan 21 2019
%o (Sage) numerical_approx(gamma(1/golden_ratio), digits=100) # _G. C. Greubel_, Jan 21 2019
%Y Cf. A111293, A178394, A178839.
%Y Cf. A001622 (golden ratio).
%K easy,nonn,cons
%O 1,2
%A _Paolo P. Lava_ and _Giorgio Balzarotti_, Jun 17 2010
|