program pairs;
var x,y,n,m,i,j,k : integer;
    f : text;
    ok : boolean;
begin
assign(f,'fractii.in');
reset(f);
read(f,n);
close(f);
m := 0;

writeln;

for i := 1 to n do
for j := 1 to n do
for k := 2 to n do
if (i mod k=0) and (j mod k=0) then begin
                                    m := m+1;
                                    break;
                                    end;
m := n*n-m;
assign(f,'fractii.out');
rewrite(f);
write(f,m);
close(f);
end.