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

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);
    for i := 1 to n do
        for j := 1 to n do
            if cond(i,j) then nr := nr + 1;
    assign(f,'fractii.out'); rewrite(f);
    write(f,nr);
    close(f);
end.