OFFSET
0,2
COMMENTS
It would be nice to have a formula or recurrence.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
LINKS
Robert Price, Table of n, a(n) for n = 0..128
N. J. A. Sloane, Illustration of generations 0-23
MATHEMATICA
Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 470, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]]
ArrayPlot /@ CellularAutomaton[{470, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 04 2015
STATUS
approved