How to store outputs as coordinates and use ListPlot to plot them?


so I have a program that outputs a desired value for incrementing values of alpha. Right now, my program prints a list of these for 40 values of alpha in the form {alpha, newValue}.

d = 1000; For[k = 1, k <= 40, k++,   alpha = 0.1*k;   fd = 3*d^2/(Pi^2);    fs = fd*FareySequence[d];   count = 0;    For[i = 1, i < fd, i++,     For[j = (i - 1), j > 0, j--,       If[(fs[[i]] - fs[[j]]) < alpha, count++, Break[]]];];     newValue = count/d^2;   Print["{", alpha, ",", newValue, "}"];   ]; 

Here are the first few outputs:

{0.1,0} {0.2,0} {0.3,0} {0.4,1911/100000} {0.5,13593/250000} {0.6,90521/1000000} .. .. .. {3.9,1155653/1000000} {4.,74163/62500} 

I want to make a plot all of these outputs as coordinates. I want to plot these point on a graph with alpha on the x axis and newValue on the y axis. Any help would be appreciated.