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:

Hinweis von Erich Neuwirth:
Die längste derartige Zahl ist 357686312646216567629137
Die Berechnung für diese Zahl:

Du muss angemeldet sein, um einen Kommentar zu veröffentlichen.