var sol,rt,vb1,min,i,j,n:longint;
begin
assign(input,'fractii.in');
assign(output,'fractii.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
  begin
   for j:=1 to n do
     begin
      if i<j then min:=i
      else min:=j;
      rt:=trunc(sqrt(min));
      inc(min);
      vb1:=0;
      repeat
      dec(min);
      if (i mod min=0) and (j mod min=0) and (min<>1) then begin vb1:=1; break; end;
      until (min=rt);
      if vb1=0 then inc(sol);
     end;
  end;
write(sol);
close(input);
close(output);
end.