The Sierpinski Sponge, Level 2

\(c2[a_] := Count[a, 1] <= 1; 

    tab0 = Flatten[Table[{a, b, c}, {a, 0, 2}, {b, 0, 2}, {c, 0, 2}], 2]; 
    tab1 = Select[tab0, c2]; 

    tab2 = Flatten[
        Table[3  tab1[\([i]\)] + tab1[\([j]\)], {i, 1, Length[tab1]}, {j, 1, 
            Length[tab1]}], 1]; 

    Show[Graphics3D[{EdgeForm[], Map[\((Cuboid[#])\)&, tab2]}], 
      Boxed -> False]; \)

Helmut Knaust, 3-3-1999