program p1;
var j,i,m,k:longint;
function simplificare(o,q:longint):integer;
var p,min:integer;
begin
if o<=q then min:=o else min:=q;
simplificare:=1;
for p:=2 to min do
if ( q mod p = 0 ) and (o mod p = 0) then
simplificare:= 0;
end;
begin
assign(input,'fractii.in');
reset(input);
readln(input,m);

for i:=1 to m do
 for j:=1 to m do
 if simplificare(i,j)=1 then  k:=k+1;
assign(output,'fractii.in');
rewrite(output);

 writeln(output,k);
 close(input);
 close(output);
 end.