\documentclass[a4paper]{article}
\usepackage[latin1]{inputenc}%
\usepackage{arrayjob}
\usepackage{multido}
\usepackage[dvipsnames]{pstricks}

\newarray\colors
\readarray{colors}{%
black&blue&brown&cyan&darkgray&gray&green&lightgray&magenta%
&olive&orange&pink&purple&red&violet&white&yellow&Apricot&Aquamarine%
&Bittersweet&Black&Blue&BlueGreen&BlueViolet&BrickRed&Brown&BurntOrange%
&CadetBlue&CarnationPink&Cerulean&CornflowerBlue&Cyan&Dandelion&DarkOrchid%
&Emerald&ForestGreen&Fuchsia&Goldenrod&Gray&Green&GreenYellow&JungleGreen%
&Lavender&LimeGreen&Magenta&Mahogany&Maroon&Melon&MidnightBlue&Mulberry%
&NavyBlue&OliveGreen&Orange&OrangeRed&Orchid&Peach&Periwinkle&PineGreen%
&Plum&ProcessBlue&Purple&RawSienna&Red&RedOrange&RedViolet&Rhodamine&RoyalBlue%
&RoyalPurple&RubineRed&Salmon&SeaGreen&Sepia&SkyBlue&SpringGreen&Tan&TealBlue%
&Thistle&Turquoise&Violet&VioletRed&White&WildStrawberry&Yellow&YellowGreen&YellowOrange}

\begin{document}
\parindent=0pt
\def\Couleur{\cachedata}%
\multido{\i=1+1}{85}{%
 \checkcolors(\i)
\psframebox[fillcolor=\Couleur,fillstyle=solid]{\hbox to 0 pt{\i:\Couleur}\phantom{82: WildStrawberry }}}

On peut définir une macro \TeX{} pour avoir n'importe quelle couleur (de 1 à 85).

TESTS :
\def\color(#1){%
 \checkcolors(#1)
 \ifnum#1>85\checkcolors(85)\fi % teste si >85 si oui fixe 85 arbitrairement
\psframebox[fillcolor=\cachedata,fillstyle=solid]{\cachedata}}

\verb+\color(4)+=\color(4), \verb+\color(52)+=\color(52)

Reste à étudier le passage à postscript...
\end{document}
