Sum[Sum[((-1)^k)*Binomial[100,k]*Binomial[r-10001*k+99,99]/Binomial[r+99,r],{k,1,100}],{r,493701,506199}]