Sum[(1000^k)Exp[-1000]/Factorial[k],{k,0,1000}]