|
%I #14 Sep 08 2022 08:45:13
%S 9,2,6,3,9,0,0,5,5,1,7,4,0,4,6,7,2,9,2,1,8,1,6,3,5,8,6,5,4,7,7,7,9,0,
%T 1,4,4,4,4,9,6,0,1,9,0,1,0,7,3,3,5,0,4,6,7,3,2,5,2,1,9,2,1,2,7,1,4,1,
%U 8,5,0,4,5,9,4,0,3,6,6,8,3,8,2,9,3,1,3,4,7,3,0,7,5,3,4,9,9,6,8,2,1,2
%N Decimal expansion of (4 + 17*sqrt(2) - 6*sqrt(3) - 7*Pi + 21*log(1+sqrt(2)) + 42*log(2+sqrt(3)))/75.
%C Average distance between two points chosen at random on two different faces of a unit cube.
%H G. C. Greubel, <a href="/A093066/b093066.txt">Table of n, a(n) for n = 0..10000</a>
%H D. H. Bailey, J. M. Borwein, V. Kapoor and E. Weisstein, <a href="https://www.researchgate.net/publication/228956228_Ten_Problems_in_Experimental_Mathematics">Ten Problems in Experimental Mathematics</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/CubeLinePicking.html">Cube Line Picking</a>
%e 0.926390055...
%t RealDigits[(4 + 17*Sqrt[2] - 6*Sqrt[3] - 7*Pi + 21*Log[1 + Sqrt[2]] + 42*Log[2 + Sqrt[3]])/75, 10, 10001][[1]] (* _G. C. Greubel_, Oct 01 2018 *)
%o (PARI) default(realprecision, 100); (4 + 17*sqrt(2) - 6*sqrt(3) - 7*Pi + 21*log(1 + sqrt(2)) + 42*log(2 + sqrt(3)))/75 \\ _G. C. Greubel_, Oct 01 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); (4 + 17*Sqrt(2) - 6*Sqrt(3) - 7*Pi(R) + 21*Log(1 + Sqrt(2)) + 42*Log(2 + Sqrt(3)))/75; // _G. C. Greubel_, Oct 01 2018
%Y Cf. A073012.
%K nonn,cons
%O 0,1
%A _Eric W. Weisstein_, Mar 16 2004
|
