|
|
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
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|