In[]:=
ResourceFunction["EnumerateWolframModelRules"][{{2,1}}{{3,1}}]
Out[]=
{{{1},{1}}{{1},{1},{1}}}
In[]:=
WolframModel[{{{1},{1}}{{1},{1},{1}}},{{1},{1}},10,"StatesList"];
In[]:=
Length/@%
Out[]=
{2,3,4,6,9,13,19,28,42,63,94}
In[]:=
FindLinearRecurrence[%]
Out[]=
FindLinearRecurrence[{2,3,4,6,9,13,19,28,42,63,94}]
In[]:=
WolframModel[{{{1},{1}}{{1},{1},{1}}},{{1},{1}},10,"CausalGraph"]
Out[]=
In[]:=
WolframModel[{{{1},{1}}{{1},{1},{1}}},{{1},{1}},3,"CausalGraph"]
Out[]=
In[]:=
WolframModel[{{{1},{1}}{{1},{1},{1}}},{{1},{1}},10,"LayeredCausalGraph"]
Out[]=
In[]:=
FindSequenceFunction[{2,3,4,6,9,13,19,28,42,63,94},n]
Out[]=
FindSequenceFunction[{2,3,4,6,9,13,19,28,42,63,94},n]