program frac;
var f,g:text;
    n,i,j,c:longint;
begin
 assign(f,'fractii.in');
 reset(f);
 assign(g,'fractii.out');
 rewrite(g);
 read(f,n);
 c:=0;
 for i:=1 to n do
  for j:=1 to n do
   begin
   if (i<>1) and (j<>1) then
     if i mod j=0then
      inc(c)
     else
      if j mod i=0 then
       inc(c);
    end;
 write(g,n*n-c);
 close(f);
 close(g);
 end.