Needs["KlausSutner`Automata`"];
tab = Cases[Table[ClassifyCA[CA[6,2,r]], {r,0,16777216}], {x_,y_} /; y == 1]

Needs["KlausSutner`Automata`"];

tab = Cases[Table[ClassifyCA[CA[6,2,r]], {r,0,16777216}], {x_,y_} /; y == 1]

Needs["KlausSutner`Automata`"];

tab = Table[{r,ClassifyCA[CA[4,2,r]]},{r,1000,10000}]

tab = Table[{r,ClassifyCA[CA[4,2,r]]}, {r,50000,100000}];
cs = Cases[tab, {x_, y_} /; y>0]

tab = Table[{r,ClassifyCA[CA[4,2,r]]}, {r,1000,10000}];
cs = Cases[tab, {x_, y_} /; y>0]

tab = Table[{r,ClassifyCA[CA[4,2,r]]}, {r,120000,130000}];
cs = Cases[tab, {x_, y_} /; y>0]

First/@cs

tab = Table[{r,ClassifyCA[CA[6,2,r]]}, {r,401100000,402200000}];
cs = Cases[tab, {x_, y_} /; y>0]

$UserBasePacletsDirectory

PacletFind["KlausSutner*"]

Needs["KlausSutner`Automata`"]

BalancedQCA[ECA[30]]

BalancedQCA[ECA[43]]