OFFSET
0,2
LINKS
N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168, 2015
MATHEMATICA
max = 100; (Partition[Total[Flatten[#]]& /@ CellularAutomaton[{493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, max], 2] /. {a_, b_} -> {a, (max + 1 - Mod[max, 2])^2 - b} )[[All, 1]] (* Jean-François Alcover, Oct 03 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 30 2014
EXTENSIONS
Minor typo in name corrected by Vincenzo Librandi, Aug 30 2014
STATUS
approved