Zum Inhalt springen
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…
Borwein-Integrale scheinen einem Muster zu folgen, tun es aber nicht ... Aufgabe aus Twitter: https://twitter.com/pickover/status/813105662788075521 Code: integrate(sin(x)/x,x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3),x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3)*sin(x/5)/(x/5),x,0,inf); Und weiter: integrate(sin(x)/x,x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3),x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3)*sin(x/5)/(x/5),x,0,inf); f(n):=integrate((prod(sin(x/(2*i-1))/(x/(2*i-1)),i,1,n)),x,0,inf); makelist(f(n),n,1,8); Probelauf: http://maxima-online.org/?inc=r1391720563
Aufgabe (es soll mindestens 2 Lösungen geben, es werden wohl viele sein): https://twitter.com/pickover/status/801597352184201216 Lösung: Code: Ziffern:makelist(z,z,1,9); P:listify(permutations(setify(Ziffern)))$ n:3;i:0; while n>1 do block( ev(i:i+1),Folge:P[i],S1:sum(Folge[j],j,1,4), S2:sum(Folge[j],j,4,7), S3:sum(Folge[j],j,7,9)+Folge[1], Seitensummen:[S1,S2,S3], n:cardinality(setify(Seitensummen)) ); display(Folge,Seitensummen); Erklärung…
