OFFSET
0,2
LINKS
Robert Price, Table of n, a(n) for n = 0..999
N. J. A. Sloane, Illustration of first 20 generations
Eric Weisstein's World of Mathematics, Rule 150
S. Wolfram, A New Kind of Science
MATHEMATICA
rule=30; rows=20; ca=CellularAutomaton[rule, {{1}, 0}, rows-1, {All, All}]; (* Start with single black cell *) catri=Table[Take[ca[[k]], {rows-k+1, rows+k-1}], {k, 1, rows}]; (* Truncated list of each row *) Table[FromDigits[catri[[k]]], {k, 1, rows}] (* Binary Representation of Rows *)(* Robert Price, Feb 21 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 28 2014
STATUS
approved