wm13=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"];
In[]:=
Length[wm13]
In[]:=
3966
Out[]=
NeighborhoodGraph
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]
In[]:=
Out[]=
Gather[%,IsomorphicGraphQ]
In[]:=
Out[]=