|
%I #12 Sep 08 2022 08:45:39
%S 2,0,1,3,7,8,1,0,3,3,9,2,5,0,6,6,5,4,5,6,5,8,5,0,7,4,4,4,7,7,0,0,5,1,
%T 4,8,2,6,7,9,2,2,1,2,5,2,2,0,5,1,8,7,9,6,4,2,2,0,7,8,2,0,1,9,4,0,5,5,
%U 0,5,3,0,6,5,5,9,0,8,0,9,2,8,4,6,0,8,9,2,8,1,7,8,3,7,1,0,5,3,4,5,6,0,2,2,5
%N Decimal expansion of (e+gamma+Pi+phi)/4, where gamma is the Euler-Mascheroni constant and phi is the golden ratio.
%H G. C. Greubel, <a href="/A153506/b153506.txt">Table of n, a(n) for n = 1..2500</a>
%F Equals A003881+A019741+A134944+A001620/4. - _R. J. Mathar_, Jan 25 2009
%e 2.01378103392506654565850744477005148267922125220518796422...
%t RealDigits[(E + EulerGamma + Pi + GoldenRatio)/4, 10, 50][[1]] (* _G. C. Greubel_, Aug 17 2016 *)
%o (PARI) default(realprecision, 100); phi=(1+sqrt(5))/2; (exp(1) + Euler + Pi + phi)/4 \\ _G. C. Greubel_, Aug 31 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); phi:=(1+ Sqrt(5))/2; (Exp(1) + EulerGamma(R) + Pi(R) + phi)/4; // _G. C. Greubel_, Aug 31 2018
%Y Cf. A135000, A135001.
%K nonn,cons
%O 1,1
%A _Omar E. Pol_, Dec 28 2008
%E More digits from _R. J. Mathar_, Jan 22 2009
|
