Program farfurii;
 var aux,nr,k,j:qword;
     a:array [0..100005] of longint;
     b1:array [1..1 shl 17] of char;
     i,m,n:longint;
     fi,fo:text;
begin
 assign(fi,'farfurii.in');
  assign(fo,'farfurii.out');
 settextbuf(fo,b1);
 reset(fi); rewrite(fo); readln(fi,n,nr);
 aux:=1; j:=1;
  while aux<=nr do begin inc(j); aux:=j*(j-1) div 2; end;
   dec(j); aux:=n-j; k:=nr-j*(j-1) div 2;
  for i:=1 to aux do a[i]:=i; m:=n;
   for i:=aux+1 to n do begin a[i]:=m; dec(m); end;
  for i:=n downto n-k+1 do begin m:=a[i]; a[i]:=a[aux]; a[aux]:=m; end;
   for i:=1 to n do write(fo,a[i],' ');
 close(fo);
end.