Leider gehen die Tage des Jahres bald zu Ende!
Aufgabe:
Code:
pz:1;
Liste:[];
Summe:0;
for i:1 thru 332 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz);
display(Liste,Summe);
Primzahl:primep(Summe);
Verkürzte Lösung mit wxMaxima:
Lösung mit Maxima-Online: