Partition[ Table[ArrayPlot[ BooleanTable[BooleanCountingFunction[{i}, 14] @@ Array[x, 14], Array[x, 7], Array[x, 7, 8]], ColorRules -> {False -> None, True -> ColorData["Rainbow"][i/12]}], {i, 1, 12}], 4] // GraphicsGrid