ListPlot[Table[{n, 1-0.99^n}, {n, 0, 1000}]]