uses crt;
var a,b,i,n,m,min:longword;
function sum(n:longword):word;
var d:word;
begin
    d:=0;
    while n<>0 do
        begin
            d:=d+(n mod 10);
            n:=n div 10;
        end;
    sum:=d;
end;
begin
    clrscr;
    readln(n,m);
    a:=trunc(sqrt(n));
    b:=trunc(sqrt(m));
    if frac(sqrt(n))<>0 then a:=a+1;
    min:=a*a;
    for i:=a to b do
        begin
            write(i*i,' ');
            if sum(min)>sum(i*i) then min:=i;
        end;
    writeln(#13#10,min);
readln;
end.

//de ao the 16 la so nguyen to ha :))?
uses crt;
var n,m,i:longint;
function cp(n:longint):boolean;
begin
    exit(sqrt(n)=trunc(sqrt(n)));
end;
function nt(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n))do
        if n mod i=0 then exit(false);
    exit(true);
end;
begin
clrscr;
    read(n,m);
    for i:=n to m do
        if cp(i)then write(i,' ');writeln;
    while nt(n)=false do inc(n);
    write(n);
readln;readln;
end.