var f,g:text;
    n,i,j,a,b,k:longint;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
repeat
inc(i);
for j:=1 to n do
              begin
              a:=i;
              b:=j;
              while a<>b do
                         begin
                         if a>b then a:=a-b;
                         if b>a then b:=b-a;
                         end;
              if a=1 then inc(k);
              end;
until i=n;
writeln(g,k);
close(f);
close(g);
end.