ArrayPlot[
      First[CellularAutomaton[{3121796387206642884643857416353388816364758858874716286199733047244606561418987700322611464790005242280784132089221851121096915552864518716025527, 
            2, {1, 1}}, {{{1}}, 0}, 4096, -1]], 
      Frame ->  False]

ArrayPlot[
      First[CellularAutomaton[{3121796387206642884643857416353388816364758858874716286199733047244606561418987700322611464790005242280784132089221851121096915552864518716024817, 
            2, {1, 1}}, {{{1}}, 0}, 4096, -1]], 
      Frame ->  False]

ArrayPlot[
      First[CellularAutomaton[{3121796387206642884643857416353388816364758858874716286199733047244606561418987700322611464790005242280784132089221851121096915552864518716025531, 
            2, {1, 1}}, {{{1}}, 0}, 4096, -1]], 
      Frame ->  False]

ArrayPlot[
      First[CellularAutomaton[{3121796387206642884643857416353388816364758858874716286199733047244606561418987700322611464790005242280784132089221851121096915552864518716024029, 
            2, {1, 1}}, {{{1}}, 0}, 4096, -1]], 
      Frame ->  False]