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