Plot of Mahonian numbers mod 2

Mathematica 8


Clear[t, A];
t[1, 1] = 1;
t[n_, k_] :=
t[n, k] = Mod[If[n >= k, Sum[t[n - i, k - 1], {i, 1, k - 1}], 0], 2];
A = Table[Table[t[n, k], {k, 1, 12}], {n, 1, 12}];
MatrixForm[A]

Advertisements
This entry was posted in Uncategorized. Bookmark the permalink.