program fractii;
var p,q,n,k,d:longint;
    f:text;
    ok:boolean;
begin
assign(f,'fractii.in');reset(f);
readln(f,n);
close(f);
assign(f,'fractii.out');rewrite(f);
for p:=1 to n do
    for q:=1 to n do
        begin
        ok:=true;
        for d:=2 to p div 2 do
            if (p mod d=0) and (q mod d=0) then ok:=false;
        if (ok and (p mod q<>0) and (q mod p<>0)) or (p=1) or (q=1) then {write(p,' si ',q,' ')}inc(k);
        end;
write(f,k);
close(f);
end.