var n,p,q,fr:longint;
    f,g:text;
begin
assign (f,'fractii.in'); assign (g,'fractii.out');
reset (f); rewrite(g);
read (f,n);
fr:=n;
if (n>=1) and (n<=1000000) then repeat for p:=2 to n do
                                           for q:=1 to n do
                                               if (p mod q<>0) or (q mod p<>0) then inc(fr);
                                until (p=n) and (q=n);
write (g,fr);
close (f); close (g);
end.