login
A246318
Total number of ON cells at stage 2n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 451".
12
1, 9, 21, 45, 93, 117, 173, 205, 293, 225, 145, 369, 609, 597, 661, 789, 1033, 845, 685, 1157, 1185, 1245, 1629, 1669, 1601, 1881, 1857, 1957, 2485, 2885, 2565, 2497, 3541, 3113, 2561, 3401, 3393, 3633, 3801, 4505, 4189, 4049, 4941, 5717, 5197, 5861, 6337, 6105, 7085, 6640, 6212, 7280, 7408, 7580
OFFSET
0,2
COMMENTS
The number of ON cells at stage 2n+1 is infinite.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
MATHEMATICA
Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 451, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 130]] (* then take every other term *)
ArrayPlot /@ CellularAutomaton[{451, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
CROSSREFS
Sequence in context: A020190 A225507 A135187 * A277715 A173391 A259243
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 27 2014
STATUS
approved