OFFSET
1,2
REFERENCES
H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162.
FORMULA
T(n,m)= ( T(n-1,m)*T(n,m-1)+1 )/T(n-1,m-1).
Row sums are n*(n+13)/2-6.
EXAMPLE
{1},
{8, 1},
{15, 2, 1},
{22, 3, 2, 1},
{29, 4, 3, 2, 1},
{36, 5, 4, 3, 2, 1},
{43, 6, 5, 4, 3, 2, 1},
{50, 7, 6, 5, 4, 3, 2, 1},
{57, 8, 7, 6, 5, 4, 3, 2, 1},
{64, 9, 8, 7, 6, 5, 4, 3, 2, 1}
MATHEMATICA
Clear[e, n, k];
e[n_, 0] := 7*n - 6;
e[n_, k_] := 0 /; k >= n;
e[n_, k_] := (e[n - 1, k]*e[n, k - 1] + 1)/e[n - 1, k - 1];
Table[Table[e[n, k], {k, 0, n - 1}], {n, 1, 10}];
Flatten[%]
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula and Gary W. Adamson, Mar 29 2009
EXTENSIONS
Edited by the Associate Editors of the OEIS, Apr 22 2009
STATUS
approved