login
A269715
Number of active (ON, black) cells in n-th stage of growth of two-dimensional cellular automaton defined by "Rule 22", based on the 5-celled von Neumann neighborhood.
4
1, 5, 8, 20, 16, 44, 32, 88, 32, 92, 64, 184, 64, 184, 128, 368, 64, 188, 128, 376, 128, 376, 256, 752, 128, 376, 256, 752, 256, 752, 512, 1504, 128, 380, 256, 760, 256, 760, 512, 1520, 256, 760, 512, 1520, 512, 1520, 1024, 3040, 256, 760, 512, 1520, 512
OFFSET
0,2
COMMENTS
Initialized with a single black (ON) cell at stage zero.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 170.
MATHEMATICA
rule=22; stages=300;
ca=CellularAutomaton[{rule, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, stages]; (* Start with single black cell *)
Map[Function[Apply[Plus, Flatten[#1]]], ca] (* Count ON cells at each stage *)
CROSSREFS
Sequence in context: A037233 A197539 A034453 * A271095 A194266 A169703
KEYWORD
nonn,easy
AUTHOR
Robert Price, Mar 04 2016
STATUS
approved