program fractii;
 var n,i,j,a,b,ans:longint;
function cmmdc(a,b:longint):longint;
 begin
  if a mod b=0 then cmmdc:=b
        else cmmdc:=cmmdc(b,a mod b);
  end;
 begin
  assign(input,'fractii.in');
  reset(Input);
  assign(output,'fractii.out');
  rewrite(output);
  readln(n);
  ans:=0;
  for i:=1 to n do
    for j:=1 to n do
      if cmmdc(i,j)=1 then inc(ans);
  write(ans);
  close(output);
 end.