EnumerateWolframModelRules[{{1,2}}{{2,2}}]
In[]:=
Out[]=
(For 1knk rules, up to a k-term linear recurrence may be involved.)
(For rules, up to a k-term linear recurrence may be involved.)
1
k
n
k
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]
In[]:=
Out[]=
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,2}}{{3,2}}]]
In[]:=
Out[]=
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,3}}{{2,3}}]]
In[]:=
Out[]=
Length/@%//Counts
In[]:=
18044,21293,336
Out[]=