Sum[(8 choose k)(1/6)^(k)(5/6)^(8-k),k=4 to 8]