In[]:=
KeySort[Counts[ParallelTable[TestLifetime[{n,2,3/2},{1,1,1,0,1,1,1},100],{n,0,2^2^4-1,2}]]]
Out[]=
1128,2520,3432,4390,5207,6112,757,816,920,102,-∞30884
In[]:=
FromDigits[{1,1,1,0,1,1,1},2]
Out[]=
119
In[]:=
Monitor[Table[IntegerDigits[ii,2]->KeySort[Counts[ParallelTable[TestLifetime[{n,2,3/2},IntegerDigits[ii,2],100],{n,0,2^2^4-1,2}]]],{ii,1,200,2}],ii]
In[]:=
Max[Keys[Last[#]]]&/@%
Out[]=
{2,4,6,8,5,7,7,8,5,5,9,10,5,8,10,10,2,4,10,9,10,9,8,12,4,10,9,13,9,13,12,11,2,4,8,8,10,10,11,14,8,10,10,15,11,10,11,13,4,12,10,16,10,10,10,13,8,16,15,10,14,13,13,15,2,4,8,8,11,7,8,8,11,10,12,11,7,12,12,15,8,8,12,16,12,14,17,14,8,14,17,11,12,15,13,14,4,6,8,12}
In[]:=
ListLinePlot[%]
Out[]=
{1,0,1,0,1,0,1,1}1128,2304,3456,4455,5373,6108,766,825,93,101,121,142,-∞30846
In[]:=
pick[lhs_->assoc_]:=DeleteCases[KeyValueMap[{FromDigits[lhs,2],#,#2}&,assoc],{_,-Infinity,_}]
In[]:=
BubbleChart[Catenate[pick/@%361]]
Out[]=