var f,g:text;
p,q,n,nr,a,b:integer;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);            nr:=1;
for p:=1 to n do
  for q:=1 to n do
           begin
           a:=p;
           b:=q;
           while a <> b do
                if a>b then a:=a-b
                       else b:=b-a;
           if (p<>q) and (a=1) then inc(nr);
           end;
writeln(g,nr);
close(f);
close(g);
end.