const
     n=8;
var
   a:array[1..n] of integer;
   k,i:integer;
begin
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5 <>0) then
k:=k+1;
writeln(k);
end.