Prelude> [[a,b,c] | a <- [0..13], b <- [a..13], c <- [b..13], (8^a + 8^b + 8^c) `mod` (2^a + 2^b + 2^c) == 0]
[[0,0,0],[0,0,2],[1,1,1],[1,1,2],[1,1,3],[2,2,2],[2,2,3],[2,2,4],[3,3,3],[3,3,4],[3,3,5],[4,4,4],[4,4,5],[4,4,6],[5,5,5],[5,5,6],[5,5,7],[6,6,6],[6,6,7],[6,6,8],[7,7,7],[7,7,8],[7,7,9],[8,8,8],[8,8,9],[8,8,10],[9,9,9],[9,9,10],[9,9,11],[10,10,10],[10,10,11],[10,10,12],[11,11,11],[11,11,12],[11,11,13],[12,12,12],[12,12,13],[13,13,13]]