ListPlot[Table[{n, Cos[Pi/n]/n}, {n, 3, 20}]]