Hansruedi Widmer zur Zahl 122

basen:[3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120];

Woran ich arbeite: ein Maxima-Programm, welches die Aussage zum Tag 122 nachprüft.

Erste Version: (Schleife fehlt noch)

kill(all);
basen:[3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120];
umrechnung:[];
basis:120;
x[0]:122;
x[n]:=block(q:[floor(x[n-1]/basis),mod(x[n-1],basis)],umrechnung:append(umrechnung,[q[2]]),x[n-1]:q[1]);
quotienten:makelist(x[i],i,1,5);
bzahl:reverse(umrechnung);
display(quotienten,bzahl);