program fractii;
var
 n,i,j,count,c:longint;
 f,g:text;
begin
 assign(f,'fractii.in');
 assign(g,'fractii.out');
 reset(f);
 read(f,n);
 close(f);
 for i:=1 to n do
  for j:=1 to n do
   begin
    c:=i;
    if j mod c<>0 then
     repeat
      c:=c-1;
     until (i mod c=0) and (j mod c=0);
    if c=1 then
     count:=count+1;
   end;
 rewrite(g);
 write(g,count);
 close(g);
end.