var i2:longint;  i,n,k,s:int64; buf:array[1..1 shl 16]of char;
begin
assign(input,'farfurii.in'); reset(input);
read(n,k);
s:=(n*(n+1)) div 2; i:=n;
while s>k do
  begin
  dec(i);
  s:=(i*(i+1)) div 2;
  end;
if s<k then i:=i+2 else i:=i+1;
s:=k-s;
assign(output,'farfurii.out'); rewrite(output); settextbuf(output,buf);
for i2:=1 to n-i do write(i2,' ');
if s>0 then begin s:=n-i+s+1; write(s,' '); end;
for i2:=n downto n-i+1 do if i2<>s then write(i2,' ');
close(output);
end.