Plot[{n^2 −500*n−2, n^2},{n,1000,1200}]