Primzahl Morgensport

Aufgabe: Twitter-Meldungen lesen bringt Arbeit. Behauptungen will man prüfen. Daraus wird bei mir häufig geistiger Morgensport.

Code:

Zahl:[];
Gruppe:[1,6,6,6];
for i:1 thru 54 do Zahl:append(Zahl,Gruppe);
Zahl:append(Zahl,[1])$
S:reverse(makelist(10^(i-1),i,1,217))$
P:Zahl.S;
Primzahl:primep(P);

217 Ziffern gibt 54 Gruppen 1666 und die 1 am Schluss.

wxMaxima:

Sagecell: