var a:array[1..200000] of longint;   f,g:Text;     n,i,poz,x:longint;  
 
 procedure update(nod,st,dr:longint);  
 var mij:longint;  
 begin  
   if st<dr then
              begin  
              a[nod]:=dr-st+1;  
	      mij:=(st+dr) shr 1;  
              nod:=nod shl 1;  
              update(nod,st,mij);  
              update(nod+1,mij+1,dr);  
              end;  
   if st=dr then a[nod]:=1;  
  end;  
   
 function query(nod,st,dr,x:longint):longint;  
 var mij:longint;  
 begin  
   if st<=dr then
            begin  
            if st=dr then  query:=st  
                     else begin  
                          mij:=(st+dr) shr 1;  
                          if a[nod shl 1]>=x then   query:=query(nod shl 1,st,mij,x)  
                                             else   query:=query(nod shl 1+1,mij+1,dr,x-a[nod shl 1]);  
                          end;  
          end;  
  end;  
   
 procedure del(nod,st,dr,x:longint);  
 var mij:longint;  
 begin  
   if st<=dr then 
          begin  
          dec(a[nod]);  
          mij:=(st+dr) shr 1;  
          if x>a[nod shl 1] then   del(nod shl 1+1,mij+1,dr,x-a[nod shl 1])  
                            else   del(nod shl 1,st,mij,x);  
         end;  
  end;  
   
 begin  
  assign(f,'order.in'); reset(f);  
  assign(g,'order.out'); rewrite(g);  
  read(f,n);  
  update(1,1,n);  
  poz:=2;  
  for i:=1 to n-1 do begin  
                     poz:=poz+i-1;  
                     poz:=poz mod (n-i+1);  
                     if poz=0 then  
                     poz:=n-i+1;  
                     x:=query(1,1,n,poz);  
                     write(g,x,' ');  
                     del(1,1,n,poz);  
                     end;  
  writeln(g,query(1,1,n,1));  
  close(f); close(g);  
end.