Quadrate, die Palindrome sind

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:

palindrome

Maxima Online:

http://maxima-online.org/?inc=r-220221196