login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A071037 Triangle read by rows giving successive states of cellular automaton generated by "Rule 158". 9
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,1
COMMENTS
Row n has length 2n+1.
LINKS
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.
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
KEYWORD
nonn,tabf
AUTHOR
Hans Havermann, May 26 2002
EXTENSIONS
Corrected by Hans Havermann, Jan 07 2012
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)