Zum Inhalt springen
Aufgabe: https://twitter.com/HansruediWidmer/status/822686909558362112 Code: 1/* Eine 1, gefolgt von 21 Mal 21, ergibt eine "sanft wellenförmige" Palindromprimzahl. */; z:10^42+sum(21*10^(2*i-2),i,1,21); primep(z); 2/* Palindromprüfung */; z:charlist(string(z)); n:length(z); if mod(n,2)=0 then block(l1:makelist(z[i],i,1,n/2), l2:makelist(z[i],i,n/2+1,n)) \…
Aufgabe: https://twitter.com/pickover/status/815357619800014848 Code für die Matrix: A:matrix([003,107,005,131,109,311], [007,331,193,011,083,041], [103,053,071,089,151,199], [113,061,097,197,167,031], [367,013,173,059,017,037], [073,101,127,179,139,047]); Wir prüfen zunächst die Primzahleigenschaft. http://maxima-online.org/?inc=r738379314 Zeilen- und Spaltensummen: http://maxima-online.org/?inc=r-447557447 Diagonalsummen: http://maxima-online.org/?inc=r-1978054743 Versetzte Diagonalen (erster Versuch): http://maxima-online.org/?inc=r564043180 Literaturhinweis…