Program fractii;
                var n,k,i,j,k1:longint;
                    a:array[1..1000000]of real;
                    fi,fo:text;
begin
     assign(fi,'fractii.in');reset(fi);
     assign(fo,'fractii.out');rewrite(fo);
     read(fi,n);
     k1:=1;
     for i:=1 to n do
                     for j:=1 to n do
                                     begin
                                          a[k1]:=i/j;
                                          inc(k1);
                                     end;
     i:=1;
     while i<=sqr(n)-1 do
                     begin
                     if a[i]=0 then inc(i);
                     for j:=i+1 to sqr(n) do
                                    if a[i]=a[j]then
                                                    a[j]:=0;
                                    inc(I);
                                    end;
     k:=0;
     for i:=1 to sqr(n) do
                          if (a[i]<>0) then inc(k);
     write(fo,k);
     close(fo);
end.