program fractie;
var n,i,j,nr,k,p:longint;
f,g:text;
found:boolean;
begin
  assign(f,'fractii.in'); assign(g,'fractii.out');
  reset(f); rewrite(g);
  read(f,n);
  nr:=0;
  for i:=1 to n do
  for j:=1 to n do
  begin
    k:=i; p:=j;
    while k<>p do
    if k<p then p:=p-k
           else k:=k-p;
    if k=1 then nr:=nr+1;
  end;
  writeln(g,nr);
  close(g); close(f);
end.