var f,g:text;
    i,j,m,p,r,q,n:longint;
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;
end;
if p=1 then inc(q);end
       else inc(q);
end;
end;
writeln(g,q);
close(f);
close(g);
end.