program fract;
var i,j,n,s:longint;
f:text;
function cmmdc(a,b:longint):longint;
var r:longint;
begin
 while b<>0 do begin
  r:=a mod b;
  a:=b;
  b:=r;
 end;
 cmmdc:=a;
end;
begin
 assign(f,'fractii.in'); reset(f);
 readln(f,n);
 close(f);
 s:=0;
 for i:=1 to n do
  for j:=1 to n do
   if cmmdc(i,j)=1 then s:=s+1;
 assign(f,'fractii.out'); rewrite(f);
 write(f,s);
 close(f);
end.