program p1;
var i,n,x,d,y,l,j,nr:longint;
    a:array[1..1000000] of longint;
    f,g:text;
begin
     assign(f,'fractii.in');reset(f);
     assign(g,'fractii.out');rewrite(g);
     read(f,n);
     a[1]:=1;
     nr:=1;
     for i:=2 to n do
         begin
              d:=2;
              x:=i;
              y:=x;
              while x mod d>0 do d:=d+1;
              l:=1;
              while y mod d=0 do
                    begin
                         y:=y div d;
                         l:=l*d;
                    end;
              l:=l div d;
              a[i]:=a[y]* (d-1)*l;
              nr:=nr+2*a[i];
          end;
     writeln(g,nr);
     close(f);
     close(g);
end.