var n,i,j,nr:integer;
 function d(e,r:integer):integer;
 begin while e<>r do begin
   if e>r then e:=e-r
      else r:=r-e;
                     end; d:=e;
 end;

 function verificare(x,y:integer):boolean;
  var u:integer;
  begin
 if x=y then verificare:=false;
 for u:=2 to n do if d(x,y)=u then verificare:=false;
  end;
  begin
  assign(input,'fractii.in');
  reset(input);
  read(input,n);   close(input);
  writeln('aaa ')            ;
 for i:=1 to n do
 for j:=1 to n do  if verificare(i,j)then nr:=nr+1;
assign(output,'fractii.out');
rewrite(output);
write(output,nr+1);

close(output);
end.