Jahreswechsel 2016/2017

 

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: