var f,g:text;j,k,i,s,n:longint;
function asd(i:longint):longint;
var j,k:longint;
begin
k:=0;
for j:=1 to n do
if j mod i=0 then k:=k+1;
for j:=2 to n do
if i mod j=0 then k:=k+1;
asd:=k-1;
end;
begin
assign (f,'fractii.in');
reset (f);
assign (g,'fractii.out');
rewrite (g);
read (f,n);
s:=n;
for i:=2 to n do
s:=s+n-asd(i);
write (g,s);
close (g);
end.