pst-prime : les nombres premiers jusqu'à 10000

Dans son livre “Merveilleux nombres premiers” sous-titré “Voyage au cœur de l’arithmétique” publié aux éditons Belin, Jean-Paul Delahaye donne à la page 11, une présentation originale des nombres premiers jusqu’à 10000. C’est cette représentation que j’ai pris la liberté de reproduire avec les outils de PSTricks.
Le package “pst-prime” comprend 2 commandes :

• \psArrayPrimeNumbers qui ne possède aucune option sauf le choix d’unité avec [unit=1] par défaut et qui affiche à la manière de Jean-Paul Delahaye le tableau des nombres premiers
  jusqu’à 10000, une case noire désigne un nombre premier.
• \psCheckPrimeNumber[N=4603] qui possède une seule option : le nombre à tester. La commande représente le bloc contenant le nombre à tester. Si c’est un nombre premier la case correspondante est coloriée en vert, dans le cas contraire en rouge.

Les fichiers sont accessibles ici :
 http://manuel.luque.free.fr/pst-prime/pst-prime.zip
ou
pst-prime
Des exemples de ces 2 commandes :

\begin{pspicture}(0,0)(17,17)
\psArrayPrimeNumbers
\end{pspicture}

\begin{pspicture}(0,0)(17,17)
\psCheckPrimeNumber[N=4603]
\end{pspicture}

\begin{pspicture}(0,0)(17,17)
\psCheckPrimeNumber[N=625]
\end{pspicture}