怎么绘制二维Menger海绵？

1、MengerMesh[1]

给出了一个一阶的Menger网格。

2、二阶Menger海绵：

MengerMesh[2]

3、5阶Menger海绵，就有分形效果了。

4、然而，阶数越多，运行时间越长。

1、MengerMesh[1,3]

2、MengerMesh[2,3]

3、MengerMesh[3,3]

4、Mathematica绘制6阶三维Menger海绵，直接导致我的电脑死机。

1、二维Menger海绵的动态图：

a = MengerMesh[#] & /@ {1, 2, 3, 4, 5, 6};

Export["0.gif", a,  "AnimationRepetitions" -> Infinity, 

      "DisplayDurations" -> 1]

2、三维Menger海绵的动态图：

a = MengerMesh[#, 3] & /@ {1, 2, 3};

Export["00.gif", a,  "AnimationRepetitions" -> Infinity, 

     "DisplayDurations" -> 1]