In[]:=
ResourceFunction["TuringMachineFromNumber"][67]
Out[]=
{{1,1}{1,0,-1},{1,0}{1,0,1},{2,1}{1,0,-1},{2,0}{1,1,1}}
In[]:=
CyclicTMSTG[ResourceFunction["TuringMachineFromNumber"][2506],1,2,5]
Out[]=
In[]:=
CyclicTMSTG[ResourceFunction["TuringMachineFromNumber"][1953],1,2,5]
Out[]=
In[]:=
CyclicTMSTG[ResourceFunction["TuringMachineFromNumber"][1953],1,2,4]
Out[]=
In[]:=
CyclicTMSTG[ResourceFunction["TuringMachineFromNumber"][1953],1,2,3]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][{#[[1,1]],Length[#]}#[[1,2]]&/@GatherBy[ParallelTable[CyclicTMSTG[ResourceFunction["TuringMachineFromNumber"][i],1,2,3]i,{i,0,4095}],First]]
Out[]=
