Testé sous l'OS 3.1 de ma CX CAS.

:setMode(1,14)
:If n=5                                ©Améliore grandement la vitesse d'execution
:Return {0,2,3,5,7,11}[max(n+1,1)]     ©On retourne les premiers résultats
:Local o,x,z,k,y,i,p,s,c,u
:i:=5:o:=1
:Loop
:For x,o,10*o-1                        ©On crée nos nombres palindromes:en balayant les entiers naturels, on a dans l'ordre croissant pour n>5 et donc un nombre >100...
:u:=-floor(-(x+1)*o^(-1))-1            © 1 qui donne 1x1 (0<=x<=9), 2 qui donne 2x2, 3 qui donne 3x3, ..... 35 qui donne 35x53 ....
:If (u and 1)=0 or u=5:Cycle
:s:=u:z:=0:y:=1
:While y<o                             ©A partir de l'entier générateur, on calcule le vrai nombre
:c:=mod(-floor(-(x+1)*y^(-1))-1,10)
:z:=10*z+c
:s:=s+c
:y:=y*10
:EndWhile
:z:=10*z+u
:For k,0,9                             ©On regarde s'il est premier avec les optimisations habituelles (2,3 et 5 puis la suite en incrémentant de 6)
:If mod(2*s+k,3)=0:Cycle
:p:=10*o*(10*x+k)+z
:y:=7
:While y*y=p
:If mod(p,y)=0 or mod(p,y+4)=0:Exit
:y:=y+6
:EndWhile
:If y*y>p:i:=i+1                      ©On augmente le compteur de palindromes premiers trouvés
:If i=n:Return p                      ©Enfin arrivé! On retourne le résultat
:EndFor
:EndFor
:o:=10*o
:EndLoop