login
A157749
Triangle, see Mathematica code.
0
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, 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
OFFSET
0,1
EXAMPLE
{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, 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}
MATHEMATICA
m = {{1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1},
{1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1},
{1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 0},
{1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0},
{1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0},
{1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1},
{1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0},
{1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0},
{1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1},
{1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1},
{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}};
H = Transpose[m].IdentityMatrix[11];
b = Table[Table[H[[m, n - m + 1]], {m, n, 1, -1}], {n, 1, Length[H] - 1}];
Flatten[%]
CROSSREFS
Sequence in context: A266754 A071982 A266588 * A129407 A267594 A273512
KEYWORD
nonn,tabl,uned,less,fini
AUTHOR
Roger L. Bagula, Mar 05 2009
STATUS
approved