Like this? Cases[ Tuples[{2, 1, 0}, 3], {x_, y_, z_} /; x >= y >= z && FromDigits[{2, 1, 0}, 2] >= FromDigits[{x, y, z}, 2] ] > {{2, 1, 0}, {2, 0, 0}, {1, 1, 1}, {1, 1, 0}, {1, 0, 0}, {0, 0, 0}}