|
%I #11 Jul 12 2017 08:38:57
%S 1,0,1,0,1,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,
%T 0,1,0,1,0,1,0,1,0,1,1,0,1,0,1,0,1,0,1,0,1
%N Triangle read by rows, variant of A070909, a cellular automaton
%C A070909 * A177990 = A177991
%C A007318 * A177990 = A177992
%C A177990 * A007318 = A177993
%F Infinite lower triangular matrix, variant of A070909: Columns alternate between (1,0,0,0,...) and (1,1,1,...); whereas A070909 leftmost column = (1,1,1,...).
%e First few rows of the triangle =
%e 1;
%e 0, 1;
%e 0, 1, 1;
%e 0, 1, 0, 1;
%e 0, 1, 0, 1, 1;
%e 0, 1, 0, 1, 0, 1;
%e 0, 1, 0, 1, 0, 1, 1;
%e 0, 1, 0, 1, 0, 1, 0, 1;
%e 0, 1, 0, 1, 0, 1, 0, 1, 1;
%e 0, 1, 0, 1, 0, 1, 0, 1, 0, 1;
%e 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1;
%e 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1;
%e ...
%t rows = 10; ca = CellularAutomaton[28, {{1}, 0}, rows]; Table[ca[[k, 2 ;; k]], {k, 2, rows+1}] // Flatten (* _Jean-François Alcover_, Jul 12 2017 *)
%Y Cf. A070909, A177991, A177992, A177993.
%K nonn,tabl
%O 1,1
%A _Gary W. Adamson_, May 16 2010
|
