|
Search: id:A156137
|
|
|
| A156137 |
|
A recursive triangle sequence: A(n,k)=k^2*(A(n - 1, k - 1) + A(n - 1, k)) |
|
+0
1
|
|
| 1, 1, 1, 1, 8, 1, 1, 36, 81, 1, 1, 148, 1053, 1312, 1, 1, 596, 10809, 37840, 32825, 1, 1, 2388, 102645, 778384, 1766625, 1181736, 1, 1, 9556, 945297, 14096464, 63625225, 106140996, 57905113, 1, 1, 38228, 8593677, 240668176, 1943042225, 6111583956
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 10, 119, 2515, 82072, 3831780, 242722653, 20048112901, 2093775709630,...}.
This sequence results from reading on Combinatorial Identities by John Riordan ( they want $405 for a used copy).
|
|
REFERENCES
|
Review: John Riordan, Combinatorial identities,Paul R. Stein,Bull. Amer. Math. Soc. Volume 78, Number 4 (1972), 490-496.
|
|
FORMULA
|
A(n,k)=k^2*(A(n - 1, k - 1) + A(n - 1, k)).
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 8, 1},
{1, 36, 81, 1},
{1, 148, 1053, 1312, 1},
{1, 596, 10809, 37840, 32825, 1},
{1, 2388, 102645, 778384, 1766625, 1181736, 1},
{1, 9556, 945297, 14096464, 63625225, 106140996, 57905113, 1},
{1, 38228, 8593677, 240668176, 1943042225, 6111583956, 8038259341, 3705927296, 1},
{1, 152916, 77687145, 3988189648, 54592760025, 289966542516, 693342321553, 751627944768, 300180111057, 1}
|
|
MATHEMATICA
|
A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := k^2*(A[n - 1, k - 1] + A[n - 1, k]);
TableForm[Table[A[n, k], {n, 10}, {k, n}], TableAlignments -> Right];
Table[Table[A[n, k], {k, n}], {n, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A142467 A142175 A142597 this_sequence A152972 A166346 A157640
Adjacent sequences: A156134 A156135 A156136 this_sequence A156138 A156139 A156140
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 04 2009
|
|
|
Search completed in 0.002 seconds
|
