Aufgabe: Die Quadrate von maximal neunstelligen Zahlen, die nur die Ziffer 1 enthalten, sind Palindrome.
Code:
f(n):=sum(10^(i-1),i,1,n),simpsum;
[transpose(makelist(f(i),i,1,10)),transpose(makelist("*",i,1,10)),\
transpose(makelist(f(i),i,1,10)),transpose(makelist("=",i,1,10)),\
transpose(makelist(f(i)^2,i,1,10))];
wxMaxima-Programm:
Maxima Online:
http://maxima-online.org/?inc=r-220221196
—