var f,g:text;
    i,j,n,nr:longint;
function ird(p,q:longint):boolean;
var i:integer;
begin
     ird:=true;
     for i:=2 to q-1 do
          if (q mod i=0)and(p mod i=0) then
          begin
               ird:=false;
               exit;
          end;
end;
begin
     assign(f,'fractii.in'); reset(f);
     assign(g,'fractii.out'); rewrite(g);
     readln(f,n);
     nr:=0;
     for i:=1 to n do
          for j:=1 to n do
               if j=1 then inc(nr)
                      else if (ird(i,j))and(i<>j) then inc(nr);
     writeln(g,nr);
     close(g);
end.