aa = {Sin[1], 2 Sin[1/2], 3 Sin[1/3]};Do[aa = Append[aa, i Sin[1/i]], {i, 4, 20}];ListPlot[aa, PlotRange -> {0, 2}, PlotStyle -> PointSize[0.018]]
