Zum Tag 122:
Die Zahl 122 endet auf ‚2‘ bei Darstellung in den Basen 3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120.#nurso
— Hansruedi Widmer (@HansruediWidmer) 1. Mai 2016
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);
