Aufgabe:
Anmerkung: 2016 hat 36 Teiler, 32 ist falsch!
Code:
a:2016 /* EINGABE JAHRESZAHL */;
T:[];
for i:1 thru a do if mod(a,i)=0 then T:append(T,[i]);
[T,length(T)];
Lösung 2016:
http://maxima-online.org/?inc=r622990752
Lösung 2017:
http://maxima-online.org/?inc=r1138511201
Anmerkung: Wenn eine Zahl genau 2 Teiler hat ist sie eine Primzahl.
Lösung für 2016 und 2017: