Eine Palindromprimzahl am Tag 21

Aufgabe:

Code:

1/* Eine 1, gefolgt von 21 Mal 21, ergibt eine "sanft wellenförmige" Palindromprimzahl. */;
z:10^42+sum(21*10^(2*i-2),i,1,21);
primep(z);
2/* Palindromprüfung */;
z:charlist(string(z));
n:length(z);
if mod(n,2)=0 then block(l1:makelist(z[i],i,1,n/2), l2:makelist(z[i],i,n/2+1,n)) \
else block(l1:makelist(z[i],i,1,floor(n/2)+1),
l2:makelist(z[i],i,floor(n/2)+1,n));
3/* Ausgabe */;
display(l1,l2);
if l1=reverse(l2) then "Es liegt ein Palindrom vor." else "Es liegt KEIN Palindrom vor.";

Hinweis:

Die Palindromprüfung hatten wir hier schon:
https://weilharter.info/2016/11/08/palindrom-eigenschaft/

Lösung:

wx_21_2017
Die Lösung mit für wxMaxima optimiertem Code

http://maxima-online.org/?inc=r51847263