ListPlot[Table[Cos[n]/n, {n, 1, 20}]]