ArrayPlot/@NestList[ArrayFlatten[#/. 1->{{1,0},{1,1}}]&,{{1}},5]