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