program farfurii;
var f,g:text;
        n,k:int64;
        v:array[1..100001] of int64;



procedure iofile;
begin
        assign(f,'farfurii.in');reset(f);
        assign(g,'farfurii.out');rewrite(g);
        readln(f,n,k);
        close(f);
end;


procedure solve;
var s,e,i,nr:int64;
begin
        i:=1;
        s:=1;
        e:=n;
        while i<=n do
                begin
                        nr:=e-s;
                        if ((nr-1)*nr) div 2>=k then
                                begin
                                        v[s]:=i;
                                        inc(s);
                                end else
                                begin
                                        v[e]:=i;
                                        dec(e);
                                        k:=k-nr;
                                end;
                        inc(i);
                end;
end;


procedure afis;
var i:int64;
begin
        i:=1;
        while i<=n-1 do
                begin
                write(g,v[i],' ');
                inc(i);
        end;
        writeln(g,v[n]);
        close(g);
end;



begin
        iofile;
        solve;
        afis;
end.