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

 

Über Johnny Weilharter

Direktor i. R. der Bundeshandelsakademie und Bundeshandelssschule in Tamsweg, Österreich
Dieser Beitrag wurde unter BYOD, Hansruedi Widmer, ZUSAMMENARBEIT veröffentlicht. Setze ein Lesezeichen auf den Permalink.