vars = Array[Subscript[x, #] &, 12]; lits = Join[vars, Not /@ vars]; SeedRandom[0]; expr = And @@ Table[Or @@ RandomSample[lits, 6], {500}]; Style[TraditionalForm[BooleanConvert[expr]], 6]