[Basel A]

Originally Posted by Ether

Thanks Ryan.

If anybody has access to R, Mathematica, MathCAD, or Maple, would you please post the value computed for p1?

I'm investigating which numerical package gives the most accurate answer.

Maple 17 and Mathematica 9.0 gave the same answer, a very large fraction that evaluates to 0.591634715653168147118256848279....

Here's the code:

Maple (with Digits set to 30):

evalf(CDF(RandomVariable(Binomial(2000, 1/3)), 671));

Mathematica:

N[CDF[BinomialDistribution[2000, 1/3], 671], 30]