1,2
t[m_, n_] := t[m, n] = If[m == 1 || n == 1, 1, Product[t[k, n], {k, m - 1}] + Product[t[m, j], {j, n - 1}]]; Plus @@@ Table[t[d + 1 - j, j], {d, 12}, {j, d}] (*Chandler*)
Cf. A124975.
Sequence in context: A158324 A002075 A122623 * A100827 A034906 A018323
Adjacent sequences: A124011 A124012 A124013 * A124015 A124016 A124017
easy,nonn
Leroy Quet Nov 23 2006
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 11 2006