|
Search: id:A154228
|
|
|
| A154228 |
|
A recursive triangular sequence: A(n,k)= A(n - 1, k - 1) + A(n - 1, k) +(n*(n + 1)*(2*n + 1)/6)*A(n - 2, k - 1). |
|
+0
1
|
|
| 1, 1, 1, 1, 16, 1, 1, 47, 47, 1, 1, 103, 974, 103, 1, 1, 195, 5354, 5354, 195, 1, 1, 336, 19969, 147068, 19969, 336, 1, 1, 541, 60085, 1259253, 1259253, 60085, 541, 1, 1, 827, 156386, 7010503, 44432886, 7010503, 156386, 827, 1, 1, 1213, 365498, 30299614
(list; table; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 18, 96, 1182, 11100, 187680, 2639760, 58768320, 1133844240,...}.
|
|
FORMULA
|
A(n,k)= A(n - 1, k - 1) + A(n - 1, k) + (n*(n + 1)*(2*n + 1)/6)*A(n - 2, k - 1).
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 16, 1},
{1, 47, 47, 1},
{1, 103, 974, 103, 1},
{1, 195, 5354, 5354, 195, 1},
{1, 336, 19969, 147068, 19969, 336, 1},
{1, 541, 60085, 1259253, 1259253, 60085, 541, 1},
{1, 827, 156386, 7010503, 44432886, 7010503, 156386, 827, 1},
{1, 1213, 365498, 30299614, 536255794, 536255794, 30299614, 365498, 1213, 1}
|
|
MATHEMATICA
|
A[n_, 1] := 1; A[n_, n_] := 1;
A[n_, k_] := A[n - 1, k - 1] + A[n - 1, k] + (n*(n + 1)*(2*n + 1)/6)*A[n - 2, k - 1];
Table[Table[A[n, m], {m, 1, n}], {n, 1, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A040257 A040256 A133824 this_sequence A141697 A142462 A022179
Adjacent sequences: A154225 A154226 A154227 this_sequence A154229 A154230 A154231
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 05 2009
|
|
|
Search completed in 0.002 seconds
|
