|
%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
|
