program flip;
var n,p,q,y,i:integer;
    divizor:integer;
    f1,f2:text;
begin
    
    assign(f1,'fractii.in');
    assign (f2,'fractii.out');
    reset(f1);
      readln(f1,n);
    close(f1);
    
    for p:=1 to n do begin
        for q:=1 to n do begin
            if ((p mod q)=0) then begin
                if ((p=q) and (p=1)) then y:=y+1;
                if ((q=1) and (p>q)) then y:=y+1;
            end;
            if ((p mod q)<>0) then begin
                for i:=q downto 2 do begin
                    if ((p mod i)=0) and ((q mod i)=0) then divizor:=i;
                end;
                if (divizor=0) then y:=y+1;
                divizor:=0;
            end;
        end;
    end;

   rewrite(f2);
     writeln(f2,y);
   close(f2); 
end.