The Sierpinski Sponge, Level 3

\(s = SessionTime[]; 	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[9  tab1[\([i]\)] + 3  tab1[\([j]\)] + tab1[\([k]\)], {i, 
            Length[tab1]}, {j, Length[tab1]}, {k, Length[tab1]}], 2]; \)

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

Helmut Knaust, 3-3-1999