MathematicaでListをプロットしたらすべて同じ色になる現象の回避方法

Mathematicaでプロットする関数をリストで指定したり，Table関数を入れ子にして一つのグラフで描画すると，そのままだとすべての線が同一色になってしまう． これはEvaluate関数を使うと通常通り自動で色付けがされる． 例えば

Plot[
 Table[Sin[n*x], {n, 1, 3}]
 , {x, 0, 2 \[Pi]}
 ]

とか記述するとすべて同一色になる：

Evaluate関数で囲むと

Plot[
 Evaluate[Table[Sin[n*x], {n, 1, 3}]]
 , {x, 0, 2 \[Pi]}
 ]

ちゃんとすべて違う色付けができる．