Tag 282 (Hansruedi Widmer)

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:

loesung_tag_282