var st:array [1..2] of longint;
    n,x:longint;
    f,g:text;

function valid(k:byte;c:longint):boolean;
var i:longint;
         begin
         valid:=true;
         if k=2 then
            for i:=2 to st[1] do
                if (c mod i=0) and (st[1] mod i=0) then
                   valid:=false;
         end;

procedure back(k:byte);
var i,j:longint;
          begin
          if k>2 then
             x:=x+1
             else
             for i:=1 to n do
                 if valid(k,i) then
                    begin
                    st[k]:=i;
                    back(k+1);
                    end;
          end;

begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
back(1);
write(g,x);
close(f);
close(g);
readln
end.