A092033 Duplicate of A061360.
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
Offset: 0
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Pi/e ~= 1.15572734979092171791009318331269629912...
RealDigits[ Pi/E, 10, 110][[1]] (* Robert G. Wilson v, Jan 15 2004 *)
{ default(realprecision, 20080); x=Pi/exp(1); for (n=1, 20000, d=floor(x); x=(x-d)*10; write("b061382.txt", n, " ", d)) } \\ Harry J. Smith, Jul 22 2009
0.42331082513074800310235591192...
RealDigits[N[Pi-E,6! ]][[1]] (* Vladimir Joseph Stephan Orlovsky, Jun 18 2009 *)
Pi-exp(1)
0.5773504972584854585501148923768706139231...
R:= RealField(100); (3*Pi(R)^2 + 4*Exp(2))/(12*Pi(R)*Exp(1)); // G. C. Greubel, Aug 30 2018
RealDigits[(3*Pi^2 + 4*E^2)/(12*E*Pi), 10, 100][[1]] (* G. C. Greubel, Aug 30 2018 *)
default(realprecision, 1020); x=10*Pi/exp(1)/4+10*exp(1)/Pi/3; d=0; for (n=0, 1000, d=floor(x); x=(x-d)*10; print1(d", ")) \\
0.88036777898173462182674985...
RealDigits[ProductLog[Log[Pi] - 1]/(Log[Pi] - 1), 10, 120][[1]] (* Amiram Eldar, May 17 2023 *)
lambertw(log(Pi)-1)/(log(Pi)-1)
0.48497912546609
RealDigits[(E/Pi)^5, 10, 100][[1]] (* Vincenzo Librandi, Mar 01 2013 *)
0.64778938568748...
RealDigits[(E/Pi)^3,10,120][[1]] (* Harvey P. Dale, Oct 14 2012 *)
.56050363937885
RealDigits[(E/Pi)^4, 10, 100][[1]] (* Vincenzo Librandi, Mar 01 2013 *)
0.93019136710263285866...
0.95290192232985715826466100...
RealDigits[Surd[E/Pi,3],10,120][[1]] (* Harvey P. Dale, Aug 25 2016 *)
Comments