|
Search: id:A103983
|
|
|
| A103983 |
|
Decimal expansion of average length of a line segment picked at random in a unit 4-cube. |
|
+0
5
|
|
| 7, 7, 7, 6, 6, 5, 6, 5, 3, 5, 8, 6, 2, 6, 7, 1, 1, 5, 3, 3, 7, 9, 3, 4, 0, 9, 4, 6, 1, 7, 8, 1, 9, 5, 0, 9, 9, 6, 2, 8, 8, 2, 7, 2, 4, 4, 1, 7, 1, 3, 3, 0, 5, 8, 0, 2, 3, 4, 4, 5, 9, 6, 4, 8, 6, 5, 0, 5, 7, 3, 5, 3, 1, 5, 9, 2, 6, 5, 4, 0, 1, 1, 4, 6, 1, 5, 1, 6, 5, 6, 8, 9, 3, 1, 6, 8, 1, 8, 8, 4, 6, 5
(list; cons; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Hypercube Line Picking
|
|
FORMULA
|
(-644 + 438*Sqrt[2] + 288*Sqrt[3] + 1344*Catalan + 12Pi(-16 + 7(-8 + 9Sqrt[2])Pi) - 2448*Sqrt[2]*ArcCot[2*Sqrt[2]] + 3744ArcCsch[Sqrt[2]] + 270ArcSinh[1] - 3024Im[PolyLog[2, I*(3 - 2*Sqrt[2])]] + 1773Log[3] - 189Sqrt[2](PolyGamma[1, 1/8] + PolyGamma[1, 3/8]) + 84(PolyGamma[1, 1/12] + PolyGamma[1, 5/12]) + 6048I(PolyLog[2, (1/2 - I/2)*(-2 + Sqrt[2])] - PolyLog[2, (1/2 + I/2)*(-2 + Sqrt[2])]) + 6048I(PolyLog[2, I(1 - Sqrt[2])] - PolyLog[2, I(-1 + Sqrt[2])]))/3780. - Eric Weisstein, Mar 02 2005
|
|
EXAMPLE
|
0.777665653...
|
|
CROSSREFS
|
Cf. A103984, A103985, A103986, A103987.
Sequence in context: A051726 A139824 A019799 this_sequence A083947 A112114 A031182
Adjacent sequences: A103980 A103981 A103982 this_sequence A103984 A103985 A103986
|
|
KEYWORD
|
nonn,cons
|
|
AUTHOR
|
Eric Weisstein (eric(AT)weisstein.com), Feb 24, 2005
|
|
|
Search completed in 0.002 seconds
|
