var n,k,i,t,s,b:qword;
    j:longint;
    v:array[1..100100] of longint;

begin
assign(input,'farfurii.in');reset(input);
assign(output,'farfurii.out');rewrite(output);
readln(n,k);
t:=n*(n-1) div 2;
i:=1;
while t-(n-i)>k do
        begin
        v[i]:=i;
        t:=t-(n-i);
        inc(i);
        end;
b:=i;
t:=t-k;
s:=n;
while t>0 do
        begin
        if n-i>t then
                begin
                v[s]:=i;
                dec(s);
                end
        else
                begin
                v[b]:=i;
                t:=t-(n-i);
                inc(b);
                end;
        inc(i);
        end;
while i<=n do
        begin
        v[s]:=i;
        dec(s);
        inc(i);
        end;
for j:=1 to n do
        write(v[j],' ');
writeln;
close(input);close(output);
end.