var a,b,c,nr,n,i,j:longint;
    f,g:text;
function cmmdc(var a,b:longint):word;
  var r:word;
begin
  repeat
    r:=a mod b;
    a:=b;
    b:=r;
  until b=0;
  cmmdc:=a;
end;
begin
  assign(f,'fractii.in');
  reset(f);
  readln(f,n);
  close(f);
  nr:=0;
  for i:=1 to n do
    for j:=1 to n do
    begin
      a:=i;
      b:=j;
      if cmmdc(a,b)=1 then inc(nr);
    end;
  assign(g,'fractii.out');
  rewrite(g);
  writeln(g,nr);
  close(g);
end.