var x,i,frac,j:longint;
    f,g:text;

function divizorComun(a,b :integer):boolean;
  begin
    while a<>b  do
      if a > b then
        a:= a-b
          else
        b:=b-a;
    if a = 1 then divizorComun:=False else divizorComun:=True;
  end;

begin
  assign(f,'fractii.in');
  assign(g,'fractii.out');
  reset(f);
  rewrite(g);
  
  read(f,x);
  frac:=0;
  for i:=1 to x do
    for j:=1 to x do
      if divizorComun(i,j) = False then
        frac:=frac+1;
  
  write(g,frac);
  close(f);
  close(g);
      
      
end.