Zum Tag Nr. 358

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