A157749 - OEIS

%I #11 Feb 18 2024 09:04:56

%S 1,0,1,0,0,1,1,1,0,1,1,0,1,0,1,1,1,1,1,1,1,0,1,0,1,0,1,1,0,0,1,1,0,0,

%T 1,1,0,1,1,0,1,1,0,1,1,1,1,0,1,1,0,1,1,1,1,1,0,1,1,1,1,1,0,1,1,0

%N Triangle, see Mathematica code.

%e {1},

%e {0, 1},

%e {0, 0, 1},

%e {1, 1, 0, 1},

%e {1, 0, 1, 0, 1},

%e {1, 1, 1, 1, 1, 1},

%e {0, 1, 0, 1, 0, 1, 1},

%e {0, 0, 1, 1, 0, 0, 1, 1},

%e {0, 1, 1, 0, 1, 1, 0, 1, 1},

%e {1, 1, 0, 1, 1, 0, 1, 1, 1, 1},

%e {1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0}

%t m = {{1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1},

%t {1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1},

%t {1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0},

%t {1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0},

%t {1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0},

%t {1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1},

%t {1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0},

%t {1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0},

%t {1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1},

%t {1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1},

%t {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}};

%t H = Transpose[m].IdentityMatrix[11];

%t b = Table[Table[H[[m, n - m + 1]], {m, n, 1, -1}], {n, 1, Length[H] - 1}];

%t Flatten[%]

%K nonn,tabl,uned,less,fini

%O 0,1

%A _Roger L. Bagula_, Mar 05 2009