function DA(var a,b:integer):boolean;
var h:integer;
begin
DA:=true;
for h:=a downto 2 do
if (a mod h=0) and (b mod h=0) then DA:=false;
end;
var f,g:text;
i,j,n,k:integer;

begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);

readln(f,n);

for i:=1 to n do
for j:=1 to n do
if  DA(i,j) then inc(k);


write(g,k);
close(f);
close(g);

end.