var i,j,x,y,r,nr,n:longint;
    f,g:text;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out'); rewrite(g);
read(f,n);
nr:=0;
for i:=1 to n do begin
  for j:=1 to n do begin
    x:=i;
    y:=j;
    r:=x mod y;
    while (r<>0) do begin
      x:=y;
      y:=r;
      r:=x mod y;
    end;
    if y=1 then nr:=nr+1;
  end;
end;
write(g,nr);
close(g);
end.