var

  n, i, k, m: integer;

begin

  k := 0;

  readln(n);

  for i := 1 to n do

  begin

    readln(m);

    if (m mod 7 = 5) and (m mod 7 = 10) then

      inc(k)

  end;

  writeln(k);  

end.