In[]:=
bigyellow={297413941736400589979939780692294751544,4,1};
In[]:=
bigred={201412842028162214137229450141139961424,4,1};
In[]:=
cands=DeleteDuplicates@
;
In[]:=
PlotCA/@cands
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,


Improved PerturbationSensitivities on New Rules

In[]:=
Length[quickneutral[#]]&/@Delete[cands,{{6},{16}}]
Out[]=
{16,1,1,4,1024,1024,16,1024,16,256,1,64,4,4,256,16,4,1,4,4,1,65536,4,1,1048576,1,4,1}
In[]:=
bigpop={1,5,7,9,10,11,13,17,18,24,27};
In[]:=
PlotCA[cands[[#]]]&/@bigpop
Out[]=

,
,
,
,
,
,
,
,
,
,

In[]:=
With[{s=PerturbationSensitivities[ru,"PerturbationFunction"->PerturbAll,"SensitivityFunction"->maxdeltalt]},GraphicsRow[{Histogram[s,PlotRange->All],PlotSensitivities[ru,s,ImageSize->Large]}]]
Out[]=
In[]:=
bps=ParallelMap[With[{s=PerturbationSensitivities[cands[[#]],"PerturbationFunction"->PerturbAll,"SensitivityFunction"->maxdeltalt]},GraphicsRow[{Histogram[s,PlotRange->All],PlotSensitivities[cands[[#]],s,ImageSize->Large]}]]&,bigpop]
GraphicsGrid[Partition[bps,2]]
Out[]=
Big yellow
Big red

Cleaner PerturbCA

Diagnosis