program fractii;
var n,i,j,s1,s,j1,i1,r:longint;
    f,g:text;
begin
     assign(f,'fra.in');
     assign(g,'fra.out');
     reset(f);
     rewrite(g);
     read(f,n);
     s:=(n*n)-(n-1);
     for i:=1 to n do
     begin
          s1:=0;
          for j:=1 to i-1 do
          begin
               i1:=1;
               j1:=j;
               while i1<>0 do
               begin
                    r:=j1 mod i1;
                    j1:=i1;
                    i1:=r;
               end;
               if (j1=0) then inc(s);
          end;
     end;
     s:=s-s1;
     write(g,s);
     close(f);
     close(g);
end.