A071037 Triangle read by rows giving successive states of cellular automaton generated by "Rule 158".

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

Offset

0,1

Comments

Row n has length 2n+1.

Links

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

Eric Weisstein's World of Mathematics, Rule 158

Eric Weisstein's World of Mathematics, Elementary Cellular Automaton

Stephen Wolfram, A New Kind of Science, Wolfram Media, 2002; Chapter 3.

Index to Elementary Cellular Automata

Index entries for sequences related to cellular automata

Example

            1;
         1, 1, 1;
      1, 1, 1, 0, 1;
   1, 1, 1, 0, 0, 1, 1;
1, 1, 1, 0, 1, 1, 1, 0, 1;
...

Mathematica

A071037list[rowmax_]:=MapIndexed[ArrayPad[#1, #2-rowmax-1]&, CellularAutomaton[158, {{1}, 0}, rowmax]]; A071037list[10] (* Generates 11 rows *) (* Paolo Xausa, Jul 27 2023 *)

Crossrefs

Cf. A118171 (rows decimal), A265379 (rows binary), A265381 (central column decimal), A265380 (central column binary).

Sequence in context: A181652 A071024 A337263 * A118172 A071039 A118111

Adjacent sequences: A071034 A071035 A071036 * A071038 A071039 A071040

Keyword

nonn,tabf

Author

Hans Havermann, May 26 2002

Extensions

Corrected by Hans Havermann, Jan 07 2012

Status

approved