Sum[PDF[BinomialDistribution[4000, 1/6],k],{k,662,672}]