OFFSET
1,1
COMMENTS
See A140820 for another version.
FORMULA
a(n,m) = Antidiagonal[HadamardMatrix[n,m]]
EXAMPLE
{1},
{1, 1},
{1, 0, 1},
{1, 0, 0, 1},
{1, 1, 0, 1, 1},
{1, 1, 0, 0, 1, 1},
{1, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 1},
{1, 1, 0, 0, 0, 0, 0, 1, 1},
{1, 1, 1, 1, 0, 0, 1, 1, 1, 1},
{1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 1},
{1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1},
{1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1},
{1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}
MATHEMATICA
c[i_, k_]:=Floor[Mod[i/2^k, 2]];
b[i_, k_]=If[c[i, k]==0&&c[i, k+1]\[Equal]0, 0, If[c[ i, k]==1&&c[i, k+1]\[Equal]1, 0, 1]];
a0=Table[If[Sum[b[i, k]*b[j, k], {k, 0, n}]\[Equal]0, 1, 0], {j, 0, n}, {i, 0, n}];
ListDensityPlot[a0, Mesh\[Rule]False];
c=Delete[Table[Reverse[Table[a0[[n, l-n]], {n, 1, l-1}]], {l, 1, Dimensions[a0][[1]]+1}], 1];
Flatten[c]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Sep 27 2007
EXTENSIONS
This looks interesting, but I do not understand the definition. - N. J. A. Sloane, Oct 16 2008
STATUS
approved