ColorData[97]

ColorDataFunction[
    97,
    "Indexed",
    {1, Infinity, 1},
    (ToColor[
        If[
            1 <= #1 <= 10,
            { 
                RGBColor[0.368417, 0.506779, 0.709798],
                RGBColor[0.880722, 0.611041, 0.142051],
                RGBColor[0.560181, 0.691569, 0.194885],
                RGBColor[0.922526, 0.385626, 0.209179],
                RGBColor[0.528488, 0.470624, 0.701351],
                RGBColor[0.772079, 0.431554, 0.102387],
                RGBColor[0.363898, 0.618501, 0.782349],
                RGBColor[1, 0.75, 0],
                RGBColor[0.647624, 0.37816, 0.614037],
                RGBColor[0.571589, 0.586483, 0.] 
            }[[#1]], 
            
            Blend[
                {
                    RGBColor[0.915, 0.3325, 0.2125],
                    RGBColor[0.83, 0.46, 0.],
                    RGBColor[0.9575, 0.545, 0.11475],
                    RGBColor[1., 0.7575, 0.],
                    RGBColor[0.6175, 0.715, 0.],
                    RGBColor[0.15, 0.715, 0.595],
                    RGBColor[0.3625, 0.545, 0.85],
                    RGBColor[0.575, 0.4175, 0.85],
                    RGBColor[0.677, 0.358, 0.595],
                    RGBColor[0.7875, 0.358, 0.425],
                    RGBColor[0.915, 0.3325, 0.2125]
                }, 
                FractionalPart[(-10 + #1 - 1)/GoldenRatio]
            ]
        ], RGBColor] & )[Floor[#1 - 1, 1] + 1] & ]