Vollkommene Zahlen

Hier bin ich auf vollkommene Zahlen gestoßen: http://youtu.be/bk_Kjpl2AaA

Hier habe ich nachgelesen: http://de.wikipedia.org/wiki/Vollkommene_Zahl

Dieses Programm werden wir brauchen:

for a:1 thru 10000 do block(
T[a]:[],
for i:1 thru a do if mod(a,i)=0 then T[a]:append(T[a],[i]),
n:length(T[a]),
if sum(T[a][i],i,1,n-1)=T[a][n] then disp(a,"ist eine 
vollkommene Zahl","")
);

Maxima Onlinehttp://maxima-online.org/?inc=r-341553497

Mit verbesserter Ausgabehttp://maxima-online.org/?inc=r-820343253

Advertisements

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s