Program p;
 var i,j,n,k:longint;
 f,g:textfile;

 function frac(a,b:longint):longint;
 begin
 while a<>b do
    if a>b then a:=a-b else
                b:=b-a;
 frac:=a;
 end;
 begin
 assign(f,'fractii.in');reset(f);
 assign(g,'fractii.out');rewrite(g);
 read(f,n);
 k:=0;
 for i:=1 to n do
        for j:=1 to n do
           if frac(i,j)=1 then inc(k);
 writeln(g,k);
 close(f);
 close(g);
 end.