program Num;

function DigSum(n: LongInt): Integer;
var
 s: Integer;
begin
 s := 0;
 while n <> 0 do
   begin
     Inc(s, n mod 10);
     n := n div 10;
   end;
 DigSum := s;
end;

var
 p: Integer;
 n: LongInt;

begin
 Write('p>');
 Readln(p);
 n := 1;
 while p > 0 do
   begin
     while DigSum(Sqr(n)) <> Sqr(DigSum(n)) do Inc(n);
     Write(n, ' ');
     Inc(n);
     Dec(p);
   end;
 Writeln;
end.