Aufgabe:
https://twitter.com/HansruediWidmer/status/784626897372090368
Zum Tag 282: Die Summe der Teiler von 282 ist eine Quadratzahl. Es folgen in diesem Jahr noch 6 weitere „solche Tage“. Welche?
Code 01:
a:282 /* EINGABE */;
T[a]:[];
for i:1 thru a do if mod(a,i)=0 then T[a]:append(T[a],[i]);
Teilersumme:sum(T[a][i],i,1,length(T[a]));
if sqrt(Teilersumme)=floor(sqrt(Teilersumme)) then "Quadratzahl" else "keine Quadratzahl";
Code 02:
Hier müssen noch die weiteren 6 Lösungen gefunden werden! Dazu verwendet man eine FOR-Schleife.
http://maxima-online.org/?inc=r373011425
Alle sieben Tage mit der Eigenschaft: