In[]:=
Grid[{{"k","r","type","number","lifetime","area","rule number"},{2,1,"general",HoldForm[2^7],1,1,0},​​{2,3/2,"general",HoldForm[2^15],2,XXX,20},​​{2,2,"symmetric",HoldForm[2^19],65,XXX,2455381412},​​{2,2,"general",HoldForm[2^31],308,XXX,450504084},​​{3,1,"symmetric",HoldForm[3^17],2194,XXX,5810255963295},​​{3,1,"general",HoldForm[3^26],10863,XXX,5051215430628}},Frame->All]
Out[]=
k
r
type
number
lifetime
area
rule number
2
1
general
7
2
1
1
0
2
3
2
general
15
2
2
XXX
20
2
2
symmetric
19
2
65
XXX
2455381412
2
2
general
31
2
308
XXX
450504084
3
1
symmetric
17
3
2194
XXX
5810255963295
3
1
general
26
3
10863
XXX
5051215430628
In[]:=
TakeLargestByNormal
,Last,3
Out[]=
{58102559632952193,54197020351682005,54278253448621627}
ty
In[]:=
Module[{init={1},g0},​​g0=ResourceFunction["FixedPointGraph"][​​IterateMutations[1,GreaterEqual][#,init]&,​​{{{0,2,1},1}}];​​Graph[g0,​​GraphLayout->{"LayeredDigraphEmbedding","RootVertex"->{{0,2,1},1}},​​EdgeStyle->Gray,​​VertexShapeFunction->Function[​​Inset[ArrayPlot[CellularAutomaton[#2[[1]],​​Join[{0},init,{0}]​​,#2[[2]]],Mesh->True,ImageSize->{Automatic,8(#2[[2]]+1)}],#1​​]],VertexLabels->{x_:>Placed[ArrayPlot[{IntegerDigits[x[[1,1]],2,8]},​​Mesh->True,ImageSize->50],Below]},​​PerformanceGoal->"Quality"]​​]
Out[]=
TestLifetime[{i,2,3/2}]
In[]:=
Select[Normal[lifetimes],#[[2]]==64&]
Out[]=
{245538141264}
In[]:=
lifetimes=Sort[Select[Association[Table[ru->TestLifetime[{ru,2,3/2},{1},30],{ru,0,2^2^4-1,2}]],0<=#<Infinity&]];
In[]:=
TakeLargestBy[Normal[lifetimes],Last,5]
Out[]=
{522,202,1802,1482,5322}
In[]:=
Sort[Select[Normal[lifetimes],Last[#]==2&]]
Out[]=
{202,522,1482,1802,5322,5642,6602,6922,10442,10762,11722,12042,15562,15882,16842,17162,20682,21002,21962,22282,25802,26122,27082,27402,30922,31242,32202,32522,36042,36362,37322,37642,82122,82442,83402,83722,87242,87562,88522,88842,92362,92682,93642,93962,97482,97802,98762,99082,102602,102922,103882,104202,107722,108042,109002,109322,112842,113162,114122,114442,117962,118282,119242,119562,164042,164362,165322,165642,169162,169482,170442,170762,174282,174602,175562,175882,179402,179722,180682,181002,184522,184842,185802,186122,189642,189962,190922,191242,194762,195082,196042,196362,199882,200202,201162,201482,245962,246282,247242,247562,251082,251402,252362,252682,256202,256522,257482,257802,261322,261642,262602,262922,266442,266762,267722,268042,271562,271882,272842,273162,276682,277002,277962,278282,281802,282122,283082,283402,327882,328202,329162,329482,333002,333322,334282,334602,338122,338442,339402,339722,343242,343562,344522,344842,348362,348682,349642,349962,353482,353802,354762,355082,358602,358922,359882,360202,363722,364042,365002,365322,409802,410122,411082,411402,414922,415242,416202,416522,420042,420362,421322,421642,425162,425482,426442,426762,430282,430602,431562,431882,435402,435722,436682,437002,440522,440842,441802,442122,445642,445962,446922,447242,491722,492042,493002,493322,496842,497162,498122,498442,501962,502282,503242,503562,507082,507402,508362,508682,512202,512522,513482,513802,517322,517642,518602,518922,522442,522762,523722,524042,527562,527882,528842,529162,573642,573962,574922,575242,578762,579082,580042,580362,583882,584202,585162,585482,589002,589322,590282,590602,594122,594442,595402,595722,599242,599562,600522,600842,604362,604682,605642,605962,609482,609802,610762,611082}
In[]:=
Length[%]
Out[]=
256
In[]:=
Counts[Last/@lifetimes]
Last
:Nonatomic expression expected at position 1 in Last[1].
Last
:Nonatomic expression expected at position 1 in Last[1].
Last
:Nonatomic expression expected at position 1 in Last[1].
General
:Further output of Last::normal will be suppressed during this calculation.
Out[]=
Last[1]2048,Last[2]256
In[]:=
TakeLargestBy
,Last,1
Out[]=
{450504084307}