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

Author

Hans Havermann, May 26 2002

Keywords

• nonn
• tabf

Comments

Row n has length 2n+1.

Examples

			            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;
...
		

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

Crossrefs

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

Programs

Mathematica

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

Extensions

Corrected by Hans Havermann, Jan 07 2012