var k,s,j,i,n,z:longint;
 begin
 readln(n);
 for i:=1 to N do begin
 readln(k);
 if (k mod 2 = 0) then s:=s+1;
 if (k mod 19=0) and (k mod 2 <>0) then j:=j+1;
 if (k mod 38=0) then z:=z+1;
 end;
 k:=z*(n-1)+j*s;
 writeln(k);
  end.