program p1;
var k,i,j,n,s:longint;
    f1,f2:text;

procedure cmmdc(a,b:longint);
 begin
  if b=0 then k:=a
         else cmmdc(b,a mod b);
 end;

begin
assign(f1,'fractii.in'); reset(f1);
assign(f2,'fractii.out'); rewrite(f2);

  read(f1,n);
  for i:=1 to n do
   for j:=1 to n do
    begin
     k:=0;
     cmmdc(i,j);
     if k=1 then inc(s);
    end;

  write(f2,s);

close(f1); close(f2);
end.