Select[Range[360], CoprimeQ[#, 360]&]