Mathematica has a rather extensive support for colors, but more often than not, it needs tinkering with.
We like to use the SunsetColors color scheme:
ColorData["SunsetColors"]
This module exports a list of n colors distributed along the gradient:
lcol[n_] := Module[{}, Table[ColorData["SunsetColors"][i], {i, 0, 1, 1/(n - 1)}]]