A071031 Triangle read by rows giving successive states of cellular automaton generated by "Rule 62".

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

Offset

0,1

Comments

Row n has length 2n+1.

References

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

Links

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

S. Wolfram, A New Kind of Science

Index entries for sequences related to cellular automata

Index to Elementary Cellular Automata

Example

Triangle starts:
1;
1, 1, 1;
1, 1, 0, 0, 1;
1, 1, 0, 1, 1, 1, 1;
1, 1, 0, 1, 1, 0, 0, 0, 1;
1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1;
...

Mathematica

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

Crossrefs

For number of ON states see A071047.

Sequence in context: A111940 A129572 A070950 * A187037 A363344 A327866

Adjacent sequences: A071028 A071029 A071030 * A071032 A071033 A071034

Keyword

nonn,tabf

Author

Hans Havermann, May 26 2002

Extensions

Corrected by Hans Havermann, Jan 07 2012

Status

approved