Uses crt;

var
k6,k3,k2,n6,i,a,n,r:integer;

begin
    readln(n);
    for i:=1 to n do
    begin
          readln(a);
          if(a mod 6 = 0) then
          begin
              inc(k6);
          end
          else
          begin
                if(a mod 3 = 0) then inc(k3);
                if(a mod 2 = 0) then inc(k2);
          end;
    end;
    n6 := n - k6;

    r := (k6*(k6-1)) div 2 + k3*k2 + k6*n6;

    writeln(r);

end.