%I #2 Oct 12 2012 14:54:57
%S 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,
%T 5,4,3,2,1,57,8,7,6,5,4,3,2,1,64,9,8,7,6,5,4,3,2,1
%N Triangle read by rows: T(n,1)=7n-6; T(n,m)= 1+n-m, 1<m<=n.
%D H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162.
%F T(n,m)= ( T(n-1,m)*T(n,m-1)+1 )/T(n-1,m-1).
%F Row sums are n*(n+13)/2-6.
%e {1},
%e {8, 1},
%e {15, 2, 1},
%e {22, 3, 2, 1},
%e {29, 4, 3, 2, 1},
%e {36, 5, 4, 3, 2, 1},
%e {43, 6, 5, 4, 3, 2, 1},
%e {50, 7, 6, 5, 4, 3, 2, 1},
%e {57, 8, 7, 6, 5, 4, 3, 2, 1},
%e {64, 9, 8, 7, 6, 5, 4, 3, 2, 1}
%t Clear[e, n, k];
%t e[n_, 0] := 7*n - 6;
%t e[n_, k_] := 0 /; k >= n;
%t e[n_, k_] := (e[n - 1, k]*e[n, k - 1] + 1)/e[n - 1, k - 1];
%t Table[Table[e[n, k], {k, 0, n - 1}], {n, 1, 10}];
%t Flatten[%]
%K nonn,tabl,easy
%O 1,2
%A _Roger L. Bagula_ and _Gary W. Adamson_, Mar 29 2009
%E Edited by the Associate Editors of the OEIS, Apr 22 2009