Ah, far far more helpful, That Excel sheet was just what was needed to see exactly how you wanted the result presented.
I think this does it
data = Select[Flatten[Table[{x, y}, {x, 1, 10}, {y, 1, 10}], 1], ({x, y} = #; 2*y > x && x >= y)&];
MatrixForm[ Map[{{x, y} = #; x, y, ArcTan[(y*Sqrt[3])/(2*x+y)], N[ArcTan[(y*Sqrt[3])/(2*x+y)]]}&, data]]
If you run that you should see it almost duplicates what you want. It doesn't provide the header across the top. I tried and failed with that.
The first line makes up all possible x,y pairs and then selects only those that satisfy your conditions.
The second line builds each row of your table and then uses MatrixForm to nicely line them up. Be careful if you use MatrixForm in the future, it makes a nice display, but you can't do any calculations with the result of a MatrixForm.
The # and & notation can be confusing, but that is a Mathematica shortcut for defining and using quick little one time functions. Each # in that is going to be an x,y pair. Select and Map go through all the pairs, one at a time.
You can "take that apart" to learn how it works. Just do the Table and look carefully at what it does. Then the Flatten[Table... and see how it changes. Then study the stuff at the end of the Select, try changing it a bit at a time and see if you can understand how to use that in the future for other problems. Look up the functions in the help system and try to figure out how that relates to this example.
