A267878 Middle column of the "Rule 233" elementary cellular automaton starting with a single ON (black) cell.

1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

Offset

0

Comments

Decimal expansion of 9091/90000. - Elmo R. Oliveira, Sep 25 2025

References

Stephen Wolfram, A New Kind of Science, Wolfram Media, 2002; p. 55.

Links

Robert Price, Table of n, a(n) for n = 0..1000

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton.

Stephen Wolfram, A New Kind of Science.

Index entries for sequences related to cellular automata.

Index to Elementary Cellular Automata.

Index entries for linear recurrences with constant coefficients, signature (1).

Formula

From Elmo R. Oliveira, Sep 25 2025: (Start)

G.f.: 1 + x^2 + x^4/(1-x).

E.g.f.: exp(x) - x - x^3/6. (End)

Mathematica

rule=233; rows=20; ca=CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]], {rows-k+1, rows+k-1}], {k, 1, rows}]; (* Truncated list of each row *) Table[catri[[k]][[k]], {k, 1, rows}] (* Keep only middle cell from each row *)

Crossrefs

Cf. A267868.

Sequence in context: A074332 A152065 A267870 * A231367 A113428 A133101

Adjacent sequences: A267875 A267876 A267877 * A267879 A267880 A267881

Keyword

nonn,easy

Author

Robert Price, Jan 21 2016

Status

approved