var v:array[1..10000] of longint;
    n,i,j,s:longint;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
     repeat
        r:=a mod b;
        a:=b;
        b:=r;
     until r=0;
     cmmdc:=a;
end;
begin
     readln(n);
     for i:=1 to n do
         v[i]:=n;
     for i:=2 to n do
         for j:=2 to n do
             if i mod j =0 then dec(v[i])
                           else
                           if j mod i = 0 then dec(v[j])
                                          else if cmmdc(i,j)<>1 then if i>j then dec(v[i])
                                                                            else dec(v[j]);
    { for i:=2 to n do
         for j:=2 to i do
             if i mod j = 0 then dec(v[i]); }
     s:=0;
     for i:=1 to n do
         s:=s+v[i];
     writeln(s);
end.