Program Fractii;
const okupat=5;
var fi, fo : text;
    i,j,n,k,nr : longint;
    a : array[1..10000,1..10000] of byte;

Function CMMDC(a,b : longint):longint;
begin
      if a mod b = 0 then cmmdc:=b
                     else cmmdc:=cmmdc(b,a mod b);
end;

begin
     assign(fi,'fractii.in'); reset(fi); readln(fi,n); close(fi);
     assign(fo,'fractii.out'); rewrite(fo);
     k:=0; for i:=1 to n do for j:=1 to n do a[i,j]:=0;
     for i:=1 to n do
                       for j:=1 to n do begin
                                        if i>=j then nr:=CMMDC(i,j)
                                                else nr:=CMMDC(j,i);
                                        if a[i div nr,j div nr]=0 then begin a[i div nr,j div nr]:=okupat; k:=k+1; end;
                                        end;
     writeln(fo,k);
     close(fo);
end.