program fractii;
var a,b,s,s1,a1,b1,r:word;;
    n:longint;
    f,g:text;

begin
     assign(f,'fractii.in');
     assign(g,'fractii.out');
     reset(f);
     rewrite(g);
     read(f,n);
     s:=(n*n)-(n-1);
     for a:=1 to n do
     begin
          s1:=0;
          for b:=1 to a-1 do
          begin
               a1:=a;
               b1:=b;
               repeat
                     r:=a1 mod b1;
                     a1:=b1;
                     b1:=r;
               until r=0;
               if (a1=0) then inc(s1);
          end;
     end;
     s:=s-s1;
     write(g,s);
     close(f);
     close(g);
end.