var
n,i,x,k1,k2,k13,k26:integer;
begin
    readln(n);
    k1:= 0;k2:= 0;k13:= 0;k26:= 0;
    for i:=1 to n do
    begin
      readln(x);
      if x mod 13 = 0 then
        if x mod 2 = 0 then
          k26 += 1
        else
          k13 += 1
      else
        if x mod 2= 0 then
          k2 += 1
        else
          k1 += 1
    end;
    writeln(k26 * k13 + k26 * k1 + k13 * k2);
end.