A135000 - OEIS

%I #17 Sep 08 2022 08:45:32

%S 7,9,7,5,7,2,3,7,5,8,1,5,9,9,5,3,7,1,2,0,9,1,3,6,3,9,3,6,3,8,2,2,2,8,

%T 0,3,8,8,3,4,6,8,9,1,2,5,6,4,6,1,6,6,9,8,2,3,6,6,1,2,8,2,5,4,7,9,9,6,

%U 0,8,3,5,0,6,1,9,6,2,4,7,3,6,1,7,1,4,7,6,2,3,2,2,1,3,8,7,2,6,4,5,8,7,3,7,8

%N Decimal expansion of e*gamma*Pi*phi, where gamma is the Euler-Mascheroni constant and phi is the golden ratio.

%H Harry J. Smith, <a href="/A135000/b135000.txt">Table of n, a(n) for n = 1..20000</a>

%e ............ e = 2.718281828459045235...

%e ........ gamma = 0.577215664901532860...

%e ........... Pi = 3.141592635589793238...

%e .......... phi = 1.618033988749894848...

%e e*gamma*Pi*phi = 7.975723758159953712...

%t RealDigits[E*EulerGamma*Pi*GoldenRatio, 10, 120][[1]] (* _Harvey P. Dale_, Sep 19 2012 *)

%o (PARI) { default(realprecision, 20080); phi = (1 + sqrt(5))/2; x=exp(1)*Euler*Pi*phi; for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b135000.txt", n, " ", d)); } \\ _Harry J. Smith_, Apr 26 2009

%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Exp(1)*EulerGamma(R)*Pi(R)*(1+Sqrt(5))/2; // _G. C. Greubel_, Aug 29 2018

%Y Cf. A001113 (e), A001620 (gamma), A000796 (Pi), A001622 (phi), A131563 (e*Pi*phi).

%K cons,nonn

%O 1,1

%A _Omar E. Pol_, Nov 21 2007

%E More terms from _Harry J. Smith_, Apr 26 2009