Real Number Picking

Author

Eric W. Weisstein
January 25, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheory/RealNumberPicking.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RealNumberPicking.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Solution

V6

1/4+Sum[1/(4n-1)-1/(4n+1),{n,∞}]

Simplify[%]

V7

1/4+Sum[1/(4n-1)-1/(4n+1),{n,∞}]

Simplify[%]

Numeric

N[((5-π)/4),10]

Random Trials

With[{n=10^7},
N[Count[Round[Divide@@@Table[Random[],{n},{2}]],_?EvenQ]/n,10]
]//Timing