begin  
assign(f,'fractii.in');reset(f);   
assign(g,'fractii.out');rewrite(g);   
readln(f,n);   
q:=0;   
for i:=1 to n do begin  
for j:=1 to n do begin  
if i mod j=0 then begin  
m:=i;   
p:=j;
r:=m mod p
while r<>0 do begin
m:=p;
p:=r;
r:=m mod p
r:=p mod m;
if p=1 then inc(q);end
       else inc(q);
end;   
end;   
writeln(g,q);
close(f);   
close(g);   
end.