WOLFRAM NOTEBOOK

In[]:=
StyleRowReverseMap​​Labeled[ArrayPlot[#,ImageSize->{Automatic,1.5Length[#]}],Style[Length[#]-5,Italic,"Text",12]]&,Last/@KeysGroupBy
,Sort[​​{#,Reverse/@#}]&[CellularAutomaton[{#[[1]],2,2},{{1},0},#[[2]]+5]]&,LineSpacing->{1,15}
Out[]=
60
60
62
63
65
65
66
66
66
67
67
68
69
69
72
72
74
75
75
76
77
77
78
82
83
83
84
84
84
85
88
91
97
98
101
102
104
108
108
118
119
137
137
151
157
165
167
182
216
308

Can one compile to a smaller set of “effective primitives”?

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.