Uses crt;

var
k14,k2,k7,n14,i,N,r,a:integer;

begin
      k14 := 0;
      k2 := 0;
      k7 := 0;
      n14 := 0;
      readln(N);
      for i:=1 to N do
      begin
          readln(a);
          if((a mod 14) = 0) then
          begin
               k14 := k14 + 1;
          end
          else
          begin
                if((a mod 2) = 0) then
                begin
                      k2 := k2 + 1;
                end;
                if((a mod 7) = 0) then
                begin
                      k7 := k7 + 1;
                end;
          end;
      end;

      n14 := n - k14;

      r := n*(n-1) div 2 - (k7*k2 + k14*(k14-1) div 2 + k14*n14);

      writeln(r);


      readkey;
end.