Color Exploration

CNC=ColorData["Crayola","ColorRules"]; CNC[[1;;5]]
Show[Table[PolarPlot[Sin[5\[Theta]]^2+.02*i,{\[Theta],0,2Pi},
PlotStyle->Values[CNC][[i]]],{i,Length[CNC]}],
Axes->False,ImageSize->500]

LNC=ColorData["Legacy","ColorRules"]; LNC[[1;;5]]
Show[Table[PolarPlot[i*(2Cos[4\[Theta]]-Exp[Cos[\[Theta]]^2-Sin[\[Theta]]]),
{\[Theta],0,2Pi},PlotStyle->Values[LNC][[i]]],{i,100}],
Axes->False,ImageSize->500]