program pacal;
var  f,g:TExt;
    n,i,j,c,k:integer;
    a:Array [1..100000] of real;
    ok:boolean;
begin
       assign (f,'fractii.in') ; reset (f);
       assign (g,'fractii.out'); rewrite (g);
       readln (f,n);
       c:=1;
       a[c]:=1;
       for i:=1 to n do
          begin
             for j:=1 to n do
                   begin
                       ok:=true ;
                       for k:=1 to c do
                          if i/j=a[k] then
                              begin
                                  ok:=false;
                                  break;
                              end;
                              if ok=true then
                                   begin
                                      c:=c+1;
                                      a[c]:=i/j;
                                   end;
                   end;
          end;
          writeln (g,c);
       close (f); close (g);
end.