program farfurii;
var
i,n,k,x,j:longint;
f1,f2:text;
begin
assign (f1,'farfurii.in');
assign (f2,'farfurii.out');
reset (f1);
rewrite (f2);
readln (f1,n,k);
i:=0;
while (i*(i-1)) div 2<k do begin
i:=i+1; k:=k-(i*(i-1)) div 2;
end;
x:=n+k;
i:=n-i;
for j:=1 to i do write (f2,j,' ');
write(f2,x,' ');
for j:=n downto i do
if j<>x then write (f2,j,' ');
close (f1);
close (f2);
end.