var i,j,k,n:longint;
    f,g:text;
function cmmdc(i,j:longint):longint;
 begin
  if j=0 then cmmdc:=i else
   cmmdc:=cmmdc(j,i mod j);
 end;
begin
 assign(f,'fractii.in');
 assign(g,'fractii.out');
 reset(f);
 rewrite(g);
 read(f,n);
 for i:=1 to n do
  for j:=1 to n do
   if cmmdc(i,j)=1 then k:=k+1;
 write(g,k);
 close(f);
 close(g);
end.