Erste Ziffer Streichen

Quelle: https://twitter.com/HansruediWidmer/status/1340178801406300160?s=20

Maxima Code

zahl:84516387853;
ziffern:string(zahl);
liste:charlist(ziffern);m:length(liste);

for i:1 thru m do begin(
print(liste),
n:length(liste),
liste:lastn(liste,n-1)
)$

Man erhält lauter Primzahlen.

Ablaufplan:

wxMaxima:

Man muss diese Ziffernlisten wieder zu Zahlen zusammensetzen. Dann sind es Primzahlen.

Hinweis von Erich Neuwirth:
Die längste derartige Zahl ist 357686312646216567629137