Original entry on oeis.org
1, 5, 1, 10, 3, 1, 16, 5, 3, 1, 23, 7, 5, 3, 1, 31, 9, 7, 5, 3, 1, 40, 11, 9, 7, 5, 3, 1, 50, 13, 11, 9, 7, 5, 3, 1, 61, 15, 13, 11, 9, 7, 5, 3, 1, 73, 17, 15, 13, 11, 9, 7, 5, 3, 1
Offset: 1
First few rows of the triangle are:
1;
5, 1;
10, 3, 1;
16, 5, 3, 1;
23, 7, 5, 3, 1;
31, 9, 7, 5, 3, 1;
...
Original entry on oeis.org
1, 3, 1, 5, 2, 1, 7, 3, 2, 1, 9, 4, 3, 2, 1, 11, 5, 4, 3, 2, 1, 13, 6, 5, 4, 3, 2, 1, 15, 7, 6, 5, 4, 3, 2, 1, 17, 8, 7, 6, 5, 4, 3, 2, 1, 19, 9, 8, 7, 6, 5, 4, 3, 2, 1
Offset: 1
1;
3, 1;
5, 2, 1;
7, 3, 2, 1;
9, 4, 3, 2, 1;
11, 5, 4, 3, 2, 1;
13, 6, 5, 4, 3, 2, 1;
15, 7, 6, 5, 4, 3, 2, 1;
17, 8, 7, 6, 5, 4, 3, 2, 1;
19, 9, 8, 7, 6, 5, 4, 3, 2, 1;
- H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162
-
Clear[e, n, k];
e[n_, 0] := 2*n - 1;
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[%]
Showing 1-2 of 2 results.
Comments