program fractii;
var f : text;
    n,i,j : longint;
    nr : real;

function cond(x,y : longint) : boolean;
var ok : boolean; i : longint;
begin
    ok := true;
    i := 2;
    while (i <= x) and ok do begin
        if (x mod i = 0) and (y mod i = 0) then ok := false;
        i := i + 1;
        end;
    cond := ok;
end;

begin
    assign(f,'fractii.in'); reset(f);
    read(f,n); nr := 0;
    for i := 1 to n do
        for j := 1 to n do
            if (i <> j) and (i mod j <> 0) and (j mod i <> 0) then
            if cond(i,j) then nr := nr + 1;
    assign(f,'fractii.out'); rewrite(f);
    write(f,trunc(nr));
    close(f);
end.