In[]:=
ArrayPlot[CellularAutomaton[110,Catenate@Table[{1,0,0,1,1,0,1,1,1,1,1,0,0,0},5],40]]
Out[]=
In[]:=
Counts[Catenate[Partition[CellularAutomaton[110,Catenate@Table[{1,0,0,1,1,0,1,1,1,1,1,0,0,0},5],40],{3,3},{1,1}]]]
Out[]=
{{1,0,0},{1,0,1},{1,1,1}}190,{{0,0,1},{0,1,1},{1,1,0}}190,{{0,1,1},{1,1,1},{1,0,0}}189,{{1,1,0},{1,1,1},{0,0,0}}189,{{1,0,1},{1,1,1},{0,0,1}}190,{{0,1,1},{1,1,0},{0,1,0}}190,{{1,1,1},{1,0,0},{1,0,0}}189,{{1,1,1},{0,0,0},{0,0,1}}189,{{1,1,1},{0,0,1},{0,1,1}}190,{{1,1,0},{0,1,0},{1,1,0}}190,{{1,0,0},{1,0,0},{1,0,1}}189,{{0,0,0},{0,0,1},{0,1,1}}189,{{0,0,1},{0,1,1},{1,1,1}}189,{{0,1,0},{1,1,0},{1,1,1}}189
In[]:=
ca110bk=Keys[Counts[Catenate[Partition[CellularAutomaton[110,Catenate@Table[{1,0,0,1,1,0,1,1,1,1,1,0,0,0},5],40],{3,3},{1,1}]]]]
Out[]=
{{{1,0,0},{1,0,1},{1,1,1}},{{0,0,1},{0,1,1},{1,1,0}},{{0,1,1},{1,1,1},{1,0,0}},{{1,1,0},{1,1,1},{0,0,0}},{{1,0,1},{1,1,1},{0,0,1}},{{0,1,1},{1,1,0},{0,1,0}},{{1,1,1},{1,0,0},{1,0,0}},{{1,1,1},{0,0,0},{0,0,1}},{{1,1,1},{0,0,1},{0,1,1}},{{1,1,0},{0,1,0},{1,1,0}},{{1,0,0},{1,0,0},{1,0,1}},{{0,0,0},{0,0,1},{0,1,1}},{{0,0,1},{0,1,1},{1,1,1}},{{0,1,0},{1,1,0},{1,1,1}}}
In[]:=
Length[%46]
Out[]=
14
In[]:=
2^9
Out[]=
512
In[]:=
BlockMap[If[MemberQ[ca110bk,#],2,#[[2,2]]]&,CellularAutomaton[110,RandomInteger[1,50],30],{3,3}]
Out[]=
{{1,2,1,1,0,1,2,2,1,2,2,1,0,0,2,1},{1,2,0,2,2,2,2,2,2,2,2,0,2,1,2,0},{2,1,2,1,2,1,1,2,2,2,0,0,1,2,1,2},{1,2,0,2,0,2,0,2,1,2,2,2,1,2,2,1},{1,0,2,2,2,2,2,2,0,2,0,0,2,2,1,0},{2,2,2,2,2,2,2,0,2,2,0,1,0,2,1,2},{2,1,1,2,2,1,0,2,2,2,0,2,2,2,2,0},{0,1,0,2,2,2,1,2,2,2,2,2,1,2,1,2},{1,2,2,1,2,0,0,2,1,1,1,2,0,2,0,2},{2,2,2,2,1,0,1,2,2,0,1,1,2,0,2,2}}
In[]:=
ArrayPlot[BlockMap[If[MemberQ[ca110bk,#],2,#[[2,2]]]&,CellularAutomaton[110,RandomInteger[1,1000],600],{3,3}],ColorRules->{0->White,1->Black,2->Red}]
Out[]=
In[]:=
ArrayPlot[ArrayFlatten[Map[If[MemberQ[ca110bk,#]&,ConstantArray[2,{3,3}],#]&,Partition[CellularAutomaton[110,RandomInteger[1,400],300],{3,3}],{2}]],ColorRules->{0->White,1->Black,2->Red}]
Out[]=
In[]:=
ArrayPlot[ArrayFlatten[Map[If[MemberQ[ca110bk,#],ConstantArray[2,{3,3}],#]&,Partition[CellularAutomaton[110,RandomInteger[1,400],300],{3,3}],{2}]],ColorRules->{0->White,1->Black,2->Red}]
Out[]=