var f:text;
    k,r:int64;
    i,n,x:longint;
begin
assign(f,'farfurii.in');
reset(f);
read(f,n,k);
close(f);
r:=0;
while  (r*(r+1) div 2)<=k do inc(r);
assign(f,'farfurii.out');
rewrite(f);
if k=r*(r-1) div 2 then
   begin
   for i:=1 to n-r do write(f,i,' ');
   for i:=n downto n-r+1 do write(f,i,' ');
   end
else begin
     x:=k-(r*(r-1) div 2);
     for i:=1 to n-r-1 do write(f,i,' ');
     write(f,n-x,' ');
     for i:=n downto n-r do
       if i<>n-x then write(f,i,' ');
     end;
close(f);
end.