In[]:=
wm13=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"];
In[]:=
Length[wm13]
Out[]=
3966
NeighborhoodGraph
In[]:=
wm10=UndirectedGraph[WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},10,"FinalState"]];
In[]:=
nwm10=NeighborhoodGraph[wm10,#,1]&/@VertexList[wm10]
Out[]=
