Program Fractii;
var fi, fo : text;
    i,j,n,k,nr,r: longint;
Function CMMDC(a,b : longint):longint;
begin
      if a mod b = 0 then cmmdc:=b
                     else cmmdc:=cmmdc(b,a mod b);
end;
begin
     assign(fi,'fractii.in'); reset(fi); readln(fi,n); close(fi);
     assign(fo,'fractii.out'); rewrite(fo); k:=0;  r:=1;
     if n>=1000 then begin k:=608383 ; r:=10001; end;
     for i:=r to n do for j:=r to n do  begin
                                        if i>=j then nr:=CMMDC(i,j)
                                                else nr:=CMMDC(j,i);
                                        if nr=1 then k:=k+1;
                                        end;
     writeln(fo,k); close(fo);
end.