Aufgabe:
Code:
pz:46$
Liste:[]$
Summe:0$
for i:1 thru 6 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz)$
display(Liste,Summe)$
pz:1$
Liste:[]$
Summe:0$
for i:1 thru 358 do block(pz:next_prime(pz),Liste:append(Liste,[pz]),Summe:Summe+pz)$
display(Liste,Summe)$
Primzahl:primep(Summe);
Probelauf:
http://maxima-online.org/?inc=r1315652358