var i,j,r,n,nr:longint;
    f:text;
procedure citire;
begin
assign(f,'fractii.in');reset(f);
readln(f,n);
close(f);
end;
function cmmdc(i,j:longint):longint;
begin
r:=i mod j;
while r<>0 do begin
      i:=j;
      j:=r;
      r:=i mod j;
      end;
cmmdc:=j;
end;
function numar(n:longint):longint;
begin
i:=1;
for i:=1 to n do
   for j:=1 to n do
        if cmmdc(i,j)=1 then nr:=nr+1;
numar:=nr;
end;
procedure afisare;
begin
assign(f,'fractii.out');rewrite(f);
writeln(f,numar(n));
close(f);
end;

begin
citire;
afisare;
end.