var
  n, a, b, i, e, c: integer;
  fin, fout: textfile;

function cmmdc(a: integer; b: integer): integer;
var
  i, n: integer;
begin
  for i := 1 to a do
  begin
    if (a mod i = 0) and (b mod i = 0) then 
      n := i;
  end;
  cmmdc := n;
  
end;


begin
  assign( fin, 'fractii.in');
  reset(fin);
  assign(fout, 'fractii.out');
  rewrite(fout);
  read(fin, n);
  for i := 1 to n do
  begin
    for e := 1 to n do
    begin
      if cmmdc(i, e) = 1 then inc(c);
    end;
  end;
  writeln(fout, c);
  close(fin);
  close(fout);
  
  
end.