program fractii;
var i,j,n,nf:longint;
    f:text;

function cmmdc(a,b:longint):longint;
 var r:longint;
 begin
  repeat
   r:=a mod b;
   a:=b;
   b:=r;
  until r=0;
  cmmdc:=a
 end;

begin
 assign(f,'fractii.in');
 reset(f);
 readln(f,n);
 close(f);
 nf:=0;
 for i:=1 to n do
  for j:=1 to n do
   if cmmdc(i,j)=1 then
    inc(nf);
 assign(f,'fractii.out');
 rewrite(f);
 write(f,nf);
 close(f);
end.