var userfile:text;
n,i,j,k:longint;
function cmmdc(a,b:longint):boolean;
begin
while a<>b do
        begin
        if a>b then a:=a-b
                else b:=b-a;
        end;
if a<>1 then cmmdc:=false
else cmmdc:=true;
end;
begin
assign(userfile, 'fractii.in');
reset(userfile);
readln(userfile, n);
close(userfile);
k:=0;
for i:=1 to n do
        for j:=1 to n do
                if cmmdc(i,j) then k:=k+1;
assign(userfile, 'fractii.out');
rewrite(userfile);
writeln(userfile, k);
close(userfile);
end.