

A255304


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


2



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 MetaAlgorithm for Creating Fast Algorithms for Counting ON Cells in OddRule Cellular Automata, arXiv:1503.01796 [math.CO], 2015; see also the Accompanying Maple Package.
Shalosh B. Ekhad, N. J. A. Sloane, and Doron Zeilberger, OddRule 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 * A330567 A050350 A196060
Adjacent sequences: A255301 A255302 A255303 * A255305 A255306 A255307


KEYWORD

nonn


AUTHOR

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


STATUS

approved



