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

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