var f,f2:text;
    n,p,q,fr:longint;
function cmmdc(a,b:longint):longint;
var a2,b2:longint;
begin
a2:=a;
b2:=b;
if (a2>b2) and (a2 mod b2=0) then a2:=b2;
if (b2>a2) and (b2 mod a2=0) then b2:=a2;
while a2<>b2 do
 begin
  if a2>b2 then
   begin
    a2:=a2-b2;
   end
  else
   begin
    b2:=b2-a2;
   end;
 end;
 cmmdc:=a2;
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.