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

function cmmdc(a,b:longint):longint;
 begin
  if b=a then cmmdc:=a
  else
   begin
    cmmdc:=cmmdc(b,a mod b);
   end;
 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.