Sum[p^25 * (1-q)^j * Sum[(25 choose r) * ((j-1) choose (r-1)) * ((q * (1-p)) / (p * (1 - q)))^r,{r,1,25}],{j,0,23}] for p=.6 and q=.5