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}]