Mathematica颜色系,你喜欢哪一个?

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