|
%I #40 Sep 29 2023 12:51:49
%S 8,6,5,2,5,5,9,7,9,4,3,2,2,6,5,0,8,7,2,1,7,7,7,4,7,8,9,6,4,6,0,8,9,6,
%T 1,7,4,2,8,7,4,4,6,2,3,9,0,8,5,1,5,5,3,9,4,5,4,3,3,0,2,8,8,9,4,8,0,4,
%U 5,0,4,4,5,7,0,6,7,7,0,5,8,6,3,1,9,2,4,6,6,2,5,1,6,1,8,4,5,1,7,2,8,6,5,8,2
%N Decimal expansion of e/Pi.
%H Harry J. Smith, <a href="/A061360/b061360.txt">Table of n, a(n) for n = 0..20000</a>
%F Equals -1 + Product_{n>=0} (1 + 1/(A007526(n) + n!*Pi)). - _David Ulgenes_, Sep 21 2023
%e 0.86525597943226508721777478964608961742874...
%t RealDigits[N[E/Pi,200]] (* _Vladimir Joseph Stephan Orlovsky_, May 27 2010 *)
%t RealDigits[E/Pi,10,120][[1]] (* _Harvey P. Dale_, Sep 29 2023 *)
%o (PARI) { default(realprecision, 20080); x=10*exp(1)/Pi; for (n=0, 20000, d=floor(x); x=(x-d)*10; write("b061360.txt", n, " ", d)); } \\ _Harry J. Smith_, Jul 21 2009
%Y Cf. A000796, A001113, A007526, A061382.
%K cons,nonn
%O 0,1
%A _Jason Earls_, Jun 07 2001
%E Edited by _N. J. A. Sloane_, Sep 18 2008 at the suggestion of _R. J. Mathar_
|
