Aufgabe:
Lösung mit wxMaxima:
Anmerkung: simplode(Liste) fügt die Elemente einer Liste zu einem einzigen String zusammen.
Code:
n:342$
pz:1$
zusammen:[]$
for i:1 thru n do block(pz:next_prime(pz), zusammen:append(zusammen,[pz]))$
zusammen$
ergebnis:simplode(zusammen)$
ergebnis:parse_string(ergebnis)$
ist_primzahl:primep(ergebnis);
laenge:length(charlist(string(ergebnis)));
Probelauf mit Maxima Online:
http://maxima-online.org/?inc=r590285688
Lösung mit Sagecell:
