var n,i,j,k:integer;
 function cmmdc(e,r:integer):integer;
 begin while e<>r do begin
   if e>r then e:=e-r
      else r:=r-e;
                     end; cmmdc:=e;
 end;

 function verificare(x,y:integer):boolean;
  var u:integer;
  begin
 if x=y then verificare:=false;
 for u:=2 to n do  if cmmdc(x,y)=u then verificare:=false;
 if ((y=1)and(x=1)) then verificare:=true;
 if ((x=1)or (y=1)) then verificare:=true;
  end;
  begin
  assign(input,'fractii.in');
  reset(input);
  read(input,n);   close(input);
 for i:=1 to n do
 for j:=1 to n do  if verificare (i,j)then inc(k);
assign(output,'fractii.out');
rewrite(output);
write(output,k);
close(output);
end.