|
%I #20 Nov 02 2020 17:46:41
%S 1,3,8,1,7,5,8,0,2,2,7,1,7,6,4,9,4,4,3,9,7,3,6,7,5,6,2,0,1,2,0,7,5,9,
%T 5,6,5,9,2,1,9,2,1,2,5,4,2,5,1,5,3,6,4,2,1,6,8,9,5,0,8,4,6,5,8,2,0,9,
%U 0,9,0,8,4,6,6,9,4,1,5,8,6,4,7,5,3,7,9,9,7,2,2,3,2,5,3,6,1,8,4
%N Decimal expansion of e*Pi*phi, where phi = (sqrt(5) + 1)/2.
%H Harry J. Smith, <a href="/A131563/b131563.txt">Table of n, a(n) for n = 2..20000</a>
%e e*Pi*phi = 13.817580227...
%p exp(1)*Pi*(1+sqrt(5))/2;
%t phi=(5^(1/2)+1)/2;RealDigits[N[Pi*E*phi,6! ]][[1]] (* _Vladimir Joseph Stephan Orlovsky_, Jun 18 2009 *)
%t RealDigits[E*Pi*GoldenRatio,10,120][[1]] (* _Harvey P. Dale_, Nov 02 2020 *)
%o (PARI) { default(realprecision, 20080); phi = (1 + sqrt(5))/2; x=exp(1)*Pi*phi/10; for (n=2, 20000, d=floor(x); x=(x-d)*10; write("b131563.txt", n, " ", d)); } \\ _Harry J. Smith_, Apr 26 2009
%Y Decimal expansion of e: A001113. Decimal expansion of Pi: A000796. Decimal expansion of phi: A001622. e*Pi: A019609. Pi*phi: A094886. e*phi: A094885.
%K cons,nonn
%O 2,2
%A _Omar E. Pol_, Aug 27 2007, Dec 17 2008
%E More terms from _N. J. A. Sloane_, Dec 19 2008
|
