Table[CellularAutomaton[122, With[{l=Length[IntegerDigits[a,2]],w=24}, Flatten[{Table[0,{w-Floor[l/2]}],IntegerDigits[a,2], Table[0,{w-Floor[(l-1)/2]}]}]],30],{a,1,199,2}]