var i,j,i1,j1,n,ct:longint;
    f,g:text;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out'); rewrite(g);
readln(f,n);   ct:=0;
if n=0 then write(g,'0')
else begin
    for i:=1 to n do
     for j:=1 to n do begin
      i1:=i;
      j1:=j;
      while i1<>j1 do
       if i1>j1 then i1:=i1-j1
       else j1:=j1-i1;
      if i1=1 then inc(ct);
     end;
write(g,ct);
end;
close(f); close(g);
end.