program apl;
var p,n,q,s:longint;
    f:text;
function cmmdc(p,q:longint):longint;
begin
while p<>q do
 if p>q then p:=p-q
        else q:=q-p;
cmmdc:=p;
end;
begin
assign(f,'fractii.in');reset(f);
readln(f,n);close(f);
s:=0;
for q:=1 to n do
 for p:=1 to n do
  if cmmdc(p,q)=1 then s:=s+1;
assign(f,'fractii.out');rewrite(f);
write(f,s);close(f);
end.