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

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, 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, 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

Offset

1,1

Links

Harry J. Smith, Table of n, a(n) for n = 1..20000

Example

............ e = 2.718281828459045235...
........ gamma = 0.577215664901532860...
........... Pi = 3.141592635589793238...
.......... phi = 1.618033988749894848...
e*gamma*Pi*phi = 7.975723758159953712...

Mathematica

RealDigits[E*EulerGamma*Pi*GoldenRatio, 10, 120][[1]] (* Harvey P. Dale, Sep 19 2012 *)

Prog

(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
(Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Exp(1)*EulerGamma(R)*Pi(R)*(1+Sqrt(5))/2; // G. C. Greubel, Aug 29 2018

Crossrefs

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

Sequence in context: A108743 A177271 A188157 * A257239 A345384 A199742

Adjacent sequences: A134997 A134998 A134999 * A135001 A135002 A135003

Keyword

cons,nonn

Author

Omar E. Pol, Nov 21 2007

Extensions

More terms from Harry J. Smith, Apr 26 2009

Status

approved