program fractii;
var n,f,g,x,c:longint;
    i,o:text;
begin
  assign(i,'fractii.in');
  assign(o,'fractii.out');
  reset(i);
  rewrite(o);
  readln(i,n);
  c:=0;
  for f:=1 to n do
    for g:=1 to n do
      begin
        if f<g then
          x:=f+1
        else
          x:=g+1;
        repeat
          x:=x-1
        until (f mod x=0)and(g mod x=0);
        if x=1 then
          c:=c+1
      end;
  write(o,c);
  close(o)
end.