var a:array[0..110000]of integer;
    n,m,k,i,j,z,x:longint;
begin
     assign(input,'farfurii.in');
     reset(input);
     assign(output,'farfurii.out');
     rewrite(output);
     readln(n,k);
     for m:=2 to n+1 do
     begin
          z:=m*(m-1) div 2;
          if z>k then break;
     end;
     dec(m);
     for i:=1 to n-m-1 do
     begin
          {if i=n then
          begin
               writeln(i);
               break;
          end;}
          write(i,' ');
          a[i]:=1;
     end;
     x:=m;
     z:=x*(x+1) div 2;
     z:=z-k;
     if z>0 then
     begin
          x:=n-z;
          a[x]:=1;
          write(x,' ');
     end;
     for i:=n downto n-m do
     begin
          if a[i]=1 then continue;
          {if i=n-m then
          begin
               writeln(i);
               break;
          end;}
          write(i,' ');
     end;
close(output);
end.