var f:record
            x,y:longint;
      end;
    n,k:longint;
    g:text;
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
     assign(g,'fractii.in'); reset(g);
     read(g,n);
     close(g);
     k:=0;
     for f.x:=1 to n do
         for f.y:=1 to n do
             if cmmdc(f.x,f.y)=1 then inc(k);
     assign(g,'fractii.out'); rewrite(g);
     write(g,k);
     close(g);
end.