var n,p,q,nr,pp,qq:longint;
    f,g:text;
    function val(p,q:longint):boolean;
    var ok:boolean;
    begin
                ok:=true;
           if p=q then ok:=false;
            if ok then
              begin
           while p<>q do
          if p>q then p:=p-q
                  else q:=q-p;
           if p=1 then ok:=true
                   else ok:=false;
                end;
               val:=ok;
    end;
begin
         assign(f,'fractii.in');
         reset(f);
         read(f,n);
         close(f);
        writeln;
        writeln;
         p:=2;
         q:=1;
         nr:=2*n-1;
     while p<=n do
       begin
      q:=2;
    while q<=n do
       begin
   if val(p,q) then nr:=nr+1;
    q:=q+1;
        end;
     p:=p+1;
       end;
  write(nr);

readln;
end.