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.
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
KEYWORD
nonn,tabf
AUTHOR
Hans Havermann, May 26 2002
EXTENSIONS
Corrected by Hans Havermann, Jan 07 2012
STATUS
approved