var a,i,n,count: integer;
begin
readln(n);
count:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 4 = 0) and (a mod 7 <> 0) then
count:=count+1;
end;
writeln(count);
end.
dmFyIGEsaSxuLGNvdW50OiBpbnRlZ2VyOwpiZWdpbgpyZWFkbG4obik7CmNvdW50Oj0wOwpmb3IgaTo9MSB0byBuIGRvCgliZWdpbgoJCXJlYWRsbihhKTsKCQlpZiAoYSBtb2QgNCA9IDApIGFuZCAoYSBtb2QgNyA8PiAwKSB0aGVuCgkJIGNvdW50Oj1jb3VudCsxOwoJZW5kOwoJd3JpdGVsbihjb3VudCk7CmVuZC4=