program frracttii;
var n,i,j,k,nr:integer;
    cat:array[1..50,1..50]of real;
 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,a:integer;
  begin
 verificare:=true;
 if x=y then verificare:=false;
 for u:=2 to n do  if cmmdc(x,y)=u then verificare:=false;
 if ((x=1)or (y=1))or ((y=1)and(x=1)) then verificare:=true;
  end;
  begin
  assign(input,'fractii.in');
  reset(input);
  readln(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);
writeln(output,k);
close(output);
end.