var i, j, n, l, k:longint;
    a:array [1..1000000] of extended;
    h:extended;
    f, g:text;
    u:boolean;
begin assign(f, 'fractii.in');
      assign(g, 'fractii.out');
      reset(f); rewrite(g);
      readln(f, n);
      For i:=1 to n do
         For j:=1 to n do begin u:=true; h:=i/j;
                                For l:=1 to k do
                                   if h=a[l] then begin u:=false;
                                                        break;
                                                  end;
                                if u then begin k:=k+1;
                                                a[k]:=h;
                                                //write(i, '/', j, ' ');
                                          end;
                          end;

      writeln(g, k);
      close(f); close(g);
end.