var p,q,o,n,z,i:longint;
    f,g:text;
begin
assign(f,'fractii.in');
assign(g,'fractii.out');
reset(f);
rewrite(g);
readln(f,n);
close(f);
z:=0;
for p:=1 to n do begin
 for q:=1 to n do begin
 o:=0;
  if p>q then  begin for i:=1 to q do
  if(p mod i=0)and(q mod i=0)or(p mod q=0) then inc(o)
               end
         else  begin for i:=1 to p do
  if(p mod i=0)and(q mod i=0)or(q mod p=0) then inc(o);
               end;
    if o<2 then inc(z);
                  end;
                 end;
writeln(g,z);
close(g);
end.