ListPlot[Table[{x, 1 + Sin[x]/x}, {x, 7, 200}]]