var n, s, k, a: integer;
begin
s:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 3=0) and (a mod 10=2) then s:=s+1;
end;
writeln(s);
end.
dmFyIG4sIHMsIGssIGE6IGludGVnZXI7CmJlZ2luCnM6PTA7CnJlYWRsbihuKTsKZm9yIGs6PTEgdG8gbiBkbwpiZWdpbgpyZWFkbG4oYSk7CmlmIChhIG1vZCAzPTApIGFuZCAoYSBtb2QgMTA9MikgdGhlbiBzOj1zKzE7CmVuZDsKd3JpdGVsbihzKTsKZW5kLg==