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

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.

%d bloggers like this: