var count, b, a:array of integer;

function Sum(a : array of integer) : integer
var answer : integer;
begin
    answer := 0;
    for var i := 1 to Length(a) do
        answer := answer + a[i];
    Sum := answer;
end;

begin
    SetLength(a, 0);

    for var i := 400 to 12000 do
    begin
        SetLength(count, 1);
        count[0] := 1;

        for var j := 2 to trunc(i **(1/2) + 1) do
        begin
            if j * j = i then
            begin
                SetLength(count, Length(count) + 1);
                count[Length(count) - 1] := j;
            end
            else
            begin
                if (i mod j) = 0 then
                begin
                    SetLength(count, Length(count), +2);
                    count[Length(count) - 1] := j;
                    count[Length(count) - 2] := i div j;
                end;
            end;
            if Sum(count) >= i then
                break;
        end;
        if Sum(count) < i then
        begin
            SetLength(a, Length(a) + 1));
            count[Length(a) - 1] := i;
        end;
    end;
end;
    for var i := 0 to Length(a) - 1 do
        WriteLn(a[i]);
end.