login
A246333
a(n) = if n is even, number of ON cells at stage n of two-dimensional 5-neighbor outer totalistic cellular automaton defined by "Rule 493" or if n is odd, number of OFF cells.
6
1, 1, 5, 5, 17, 9, 29, 21, 61, 25, 73, 37, 109, 57, 157, 85, 229, 89, 241, 101, 277, 121, 329, 165, 429, 169, 477, 213, 573, 217, 633, 317, 861, 321, 873, 333, 909, 353, 961, 397, 1061, 401, 1113, 461, 1237, 481, 1353, 637, 1645, 593, 1661, 733, 1893, 689, 1969, 877, 2325, 801, 2321, 981, 2669, 921, 2693, 1157, 3245, 1185, 3305, 1197, 3341, 1217, 3393, 1261, 3493
OFFSET
0,3
COMMENTS
More than the usual number of terms are shown in order to distinguish this from a closely related entry.
REFERENCES
S. Wolfram, A New Kind of Science, Wolfram Media, 2002; pp. 173-175.
MATHEMATICA
Map[Function[Apply[Plus, Flatten[ #1]]], CellularAutomaton[{ 493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 200]] (* then subtract the odd-indexed terms from 201^2 *)
ArrayPlot /@ CellularAutomaton[{493, {2, {{0, 2, 0}, {2, 1, 2}, {0, 2, 0}}}, {1, 1}}, {{{1}}, 0}, 23]
CROSSREFS
Bisections: A246334, A246335.
Sequence in context: A273421 A273758 A273835 * A079317 A273482 A273792
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Aug 30 2014
STATUS
approved