Column[{#, Row[Graphics[{#, PointSize[0.5], Point[{0, 0}]}, ImageSize -> 50] & /@ ColorData[#, "ColorList"]]} & /@ Range[62]]