login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A158893 Triangle read by rows: T(n,1)=7n-6; T(n,m)= 1+n-m, 1<m<=n. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:59 EDT 2024. Contains 371277 sequences. (Running on oeis4.)