A255304 Number of ON cells after n generations of the odd-rule cellular automaton defined by OddRule 117 when started with a single ON cell.

1, 5, 5, 15, 5, 25, 15, 51, 5, 25, 25, 75, 15, 75, 51, 153, 5, 25, 25, 75, 25, 125, 75, 255, 15, 75, 75, 225, 51, 255, 153, 477, 5, 25, 25, 75, 25, 125, 75, 255, 25, 125, 125, 375, 75, 375, 255, 765, 15, 75, 75, 225, 75, 375, 225, 765, 51, 255, 255, 765, 153

Offset

0,2

Links

JungHwan Min, Table of n, a(n) for n = 0..10000

Shalosh B. Ekhad, N. J. A. Sloane, and  Doron Zeilberger, A Meta-Algorithm for Creating Fast Algorithms for Counting ON Cells in Odd-Rule Cellular Automata, arXiv:1503.01796 [math.CO], 2015; see also the Accompanying Maple Package.

Shalosh B. Ekhad, N. J. A. Sloane, and  Doron Zeilberger, Odd-Rule Cellular Automata on the Square Grid, arXiv:1503.04249 [math.CO], 2015.

N. J. A. Sloane, On the No. of ON Cells in Cellular Automata, Video of talk in Doron Zeilberger's Experimental Math Seminar at Rutgers University, Feb. 05 2015: Part 1, Part 2

N. J. A. Sloane, On the Number of ON Cells in Cellular Automata, arXiv:1503.01168 [math.CO], 2015.

Index entries for sequences related to cellular automata

Mathematica

A255304[n_] := Total[CellularAutomaton[{10, {2, {{0, 0, 1}, {0, 0, 1}, {1, 1, 1}}}, {1, 1}}, {{{1}}, 0}, {{{n}}}], 2]; Array[A255304, 61, 0] (* JungHwan Min, Sep 29 2016 *)
A255304L[n_] := Total[#, 2] & /@ CellularAutomaton[{10, {2, {{0, 0, 1}, {0, 0, 1}, {1, 1, 1}}}, {1, 1}}, {{{1}}, 0}, n]; A255304L[60] (* JungHwan Min, Sep 29 2016 *)

Crossrefs

Run length transform of A255442.

Sequence in context: A321653 A247940 A061200 * A339337 A330567 A050350

Adjacent sequences: A255301 A255302 A255303 * A255305 A255306 A255307

Keyword

nonn

Author

N. J. A. Sloane and Doron Zeilberger, Feb 23 2015

Status

approved