<<NetworkSystems/NewGraphs.m
(Length /@ XGCEvolveList[{bkr[1,3], bkr[2, 1], bkr[3, 1]}, tetragraph, 20])
{6, 15, 15, 15, 24, 24, 24, 33, 33, 33, 42, 42, 42, 51,
51, 51, 60, 60, 60, 69, 69}
51, 51, 60, 60, 60, 69, 69}
(Length /@ XGCEvolveList[{bkr[1,4], bkr[2, 1], bkr[3, 1]}, tetragraph, 8])
{6, 15, 15, 42, 69, 159, 321, 699, 1482}
(Length /@ XGCEvolveList[{bkr[1,5], bkr[2, 1], bkr[3, 1]}, tetragraph, 8])
{6, 15, 15, 42, 69, 159, 321, 699, 1482}