OFFSET
0,1
LINKS
Robert Price, Table of n, a(n) for n = 0..9999
Eric Weisstein's World of Mathematics, Rule 188
Eric Weisstein's World of Mathematics, Elementary Cellular Automaton
S. Wolfram, A New Kind of Science
EXAMPLE
Triangle starts:
1;
0, 1, 1;
0, 0, 1, 0, 1;
0, 0, 0, 1, 1, 1, 1;
0, 0, 0, 0, 1, 1, 1, 0, 1;
...
MATHEMATICA
lim = 10; a = {}; Do[AppendTo[a, Table[0, k - 1]~Join~Take[#[[k]], k]], {k, Length@ #}] &@ CellularAutomaton[188, {{1}, 0}, lim]; Flatten@ a (* Michael De Vlieger, Dec 09 2015 *)
CROSSREFS
KEYWORD
nonn,easy,tabf
AUTHOR
Eric W. Weisstein, Apr 13 2006
STATUS
approved