Tag 332

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:

t332

Lösung mit Maxima-Online:

http://maxima-online.org/?inc=r1266854947