function cmmdc(a,b:longint):longint;
var r:integer;
begin
   r:=a mod b;
 while r<>0 do begin
   a:=b;
   b:=r;
   r:=a mod b; end;
 cmmdc:=b;
end;

var
begin
assign(input,'fractii.in');reset(input);
assign(output,'fractii.out');rewrite(output);
readln(n);
nr:=1;
 for i:=2 to n do
  for j:=1 to i-1 to
    if cmmdc(i,j)=1 then inc(nr);
write(nr);
close(input);close(output);
end.