var d,i,n,nr,j:integer; a,b:real;
    f,g:text;
    v:array [1..100] of integer;
BEGIN
assign(f,'fractii.in');reset(f);assign(g,'fractii.out');rewrite(g);d:=0;nr:=0;
read(f,n);
if n>=1 then
        begin
          nr:=n;
          for i:=2 to n do
          for j:=1 to n do
                begin
                  if j=1 then nr:=nr+1;
                  if (i>j) and (j>1) then
                        begin
                        a:=i; b:=j;
                        if (a / b <2) and (a/(i-j)<>1.5)
        or (a / b>2) and (i mod j<>0) and(i mod (i div j)<>0) then nr:=nr+1;
                        end;
                        if (j>i) and (j mod i<>0) and ((j div i)*i<>j) then
                        nr:=nr+1;
                end;

        end;


write(g,nr);
close(f);close(g);
END.