login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Decimal expansion of (e*Pi*phi)^2.
4

%I #13 May 01 2017 13:55:03

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

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

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

%N Decimal expansion of (e*Pi*phi)^2.

%C phi = (5^(1/2) + 1)/2 = (1 + sqrt(5))/2.

%H Harry J. Smith, <a href="/A131566/b131566.txt">Table of n, a(n) for n = 3..20000</a>

%e 190.925523334...

%t phi=(5^(1/2)+1)/2;RealDigits[N[(Pi*E*phi)^2,6! ]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Jun 18 2009 *)

%t RealDigits[(E*Pi*GoldenRatio)^2,10,120][[1]] (* _Harvey P. Dale_, May 01 2017 *)

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

%Y Cf. A001113, A000796, A001622, A019609, A094886, A094885.

%K cons,nonn

%O 3,2

%A _Omar E. Pol_, Aug 27 2007

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

%E Fixed my PARI program, had -n _Harry J. Smith_, May 19 2009