|
Search: id:A130303
|
|
| |
|
| 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
(list; table; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Row sums = a034856: (1, 4, 8, 13, 19,...). A130302 = A000012 * A130296.
Row sums are: {1, 4, 8, 13, 19, 26, 34, 43, 53, 64,...}.
|
|
REFERENCES
|
H. S. M. Coxeter, Regular Polytopes, 3rd ed., Dover, NY, 1973, pp 159-162
|
|
FORMULA
|
A130296 * A000012 as infinite lower triangular matrices. (1,3,5,...) as the left border; (1,2,3,...) in all other columns.
e(n,k)= (e(n - 1, k)*e(n, k - 1) + 1)/e(n - 1, k - 1)
|
|
EXAMPLE
|
{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}
|
|
MATHEMATICA
|
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[%]
|
|
CROSSREFS
|
Cf. A130296, A000012, A034856, A130302.
Sequence in context: A100576 A131032 A130323 this_sequence A100898 A101350 A134867
Adjacent sequences: A130300 A130301 A130302 this_sequence A130304 A130305 A130306
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Gary W. Adamson (qntmpkt(AT)yahoo.com), May 20 2007
|
|
EXTENSIONS
|
Additional comments from Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Mar 28 2009
|
|
|
Search completed in 0.002 seconds
|
