var n,c,i,j,d:integer;
f,g:text;


begin{PP}

assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);

readln(f,n);

c:=1;

for i:=1 to n do
        for j:=1 to n do
                for d:=2 to n do
                        if (i=j) or ((i mod d = 0) and (j mod d=0)) then c:=c+0
                        else c:=c+1;

write(g,c);

close(f);
close(g);

readln;
end.