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