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: