login
A093066
Decimal expansion of (4 + 17*sqrt(2) - 6*sqrt(3) - 7*Pi + 21*log(1+sqrt(2)) + 42*log(2+sqrt(3)))/75.
5
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, 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, 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
OFFSET
0,1
COMMENTS
Average distance between two points chosen at random on two different faces of a unit cube.
LINKS
D. H. Bailey, J. M. Borwein, V. Kapoor and E. Weisstein, Ten Problems in Experimental Mathematics
Eric Weisstein's World of Mathematics, Cube Line Picking
EXAMPLE
0.926390055...
MATHEMATICA
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 *)
PROG
(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
(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
CROSSREFS
Cf. A073012.
Sequence in context: A353407 A248318 A298852 * A155168 A239628 A160262
KEYWORD
nonn,cons
AUTHOR
Eric W. Weisstein, Mar 16 2004
STATUS
approved