In[]:=
EnumerateWolframModelRules[{{1,2}}{{2,2}}]
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
In[]:=
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,2}}{{2,2}}]]
Out[]=
In[]:=
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,2}}{{3,2}}]]
Out[]=
In[]:=
ParallelMapMonitored[FindLinearRecurrence[(WolframModelTest[#,Automatic]["Sizes"])]&,EnumerateWolframModelRules[{{1,3}}{{2,3}}]]
Out[]=
In[]:=
Length/@%//Counts
Out[]=
18044,21293,336