var f,f2:text;
    n,p,q,fr:longint;

function cmmdc(a,b:longint):longint;
 var aux:longint;
 begin
  while b<>0 do
   begin
    aux:=b;
    b:=a mod b;
    a:=aux;
   end;
  cmmdc:=a;
 end;

begin
assign(f,'fractii.in');
assign(f2,'fractii.out');
reset(f);
readln(f,n);
close(f);
fr:=0;
for p:=1 to n do
 begin
  for q:=1 to n do
   begin
    if cmmdc(p,q)=1 then fr:=fr+1;
   end;
 end;
rewrite(f2);
writeln(f2,fr);
close(f2);
end.