var
    ans,k,tot1,tot2:int64;
    n:longint;
function s(x:longint):longint;
begin
    if x=0 then exit(0)
    else exit(x mod 10+s(x div 10));
end;
begin
    readln(n);
    ans:=1;k:=1;
    while n>0 do
        begin
            writeln(ans);
            tot1:=ans+k;
            tot2:=ans+k*10;
            if tot1*s(tot2)<=tot2*s(tot1) then ans:=tot1
            else
                begin
                    ans:=tot2;
                    k:=k*10;
                end;
            dec(n);
        end;
end.