var n,i,i2:longint;  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 inc(i);
s:=k-s;
assign(output,'farfurii.out'); rewrite(output); settextbuf(output,buf);
for i2:=1 to i-1 do write(i2,' ');
s:=n-s;
write(s,' ');
for i2:=n downto i do if i2<>s then write(i2,' ');
close(output);
end.