Program farfurii;
 var n,k,nr,aux,m:int64;
     a:array [1..100001] of longint;
     b1:array [1..1 shl 17] of char;
     i: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; i:=1;
  while aux<nr do begin inc(i); aux:=i*(i-1) div 2; end;
   dec(i); aux:=n-i; k:=nr-i*(i-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.