|
Search: id:A154922
|
|
|
| A154922 |
|
A triangular sequence: p = 2; q = 5; t(n,m) = (p^(n - m)*q^m + p^m*q^( n - m))*(StirlingS2[n, m] + StirlingS2[n, n - m]). |
|
+0
1
|
|
| 4, 7, 7, 29, 40, 29, 133, 280, 280, 133, 641, 2030, 2800, 2030, 641, 3157, 14630, 28000, 28000, 14630, 3157, 15689, 102560, 278400, 360000, 278400, 102560, 15689, 78253, 694540, 2699900, 4557000, 4557000, 2699900, 694540, 78253, 390881, 4549810
(list; table; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Row sums are:
{4, 14, 98, 826, 8142, 91574, 1153298, 16059386, 245231982, 4083954294,
73865689618}
|
|
FORMULA
|
p = 2; q = 5;
t(n,m) = (p^(n - m)*q^m + p^m*q^( n - m))*(StirlingS2[n, m] + StirlingS2[n, n - m]).
|
|
EXAMPLE
|
{4},
{7, 7},
{29, 40, 29},
{133, 280, 280, 133},
{641, 2030, 2800, 2030, 641},
{3157, 14630, 28000, 28000, 14630, 3157}, {15689, 102560, 278400, 360000, 278400, 102560, 15689},
{78253, 694540, 2699900, 4557000, 4557000, 2699900, 694540, 78253},
{390881, 4549810, 25191300, 58464000, 68040000, 58464000, 25191300, 4549810, 390881},
{1953637, 28953610, 226356900, 754243000, 1030470000, 1030470000, 754243000, 226356900, 28953610, 1953637},
{9766649, 179805260, 1978382900, 9749610000, 16510280000, 17010000000, 16510280000, 9749610000, 1978382900, 179805260, 9766649}
|
|
MATHEMATICA
|
Clear[t, p, q, n, m, a];
p = 2; q = 5;
t[n_, m_] = (p^(n - m)*q^m + p^m*q^(n - m))*(StirlingS2[n, m] + StirlingS2[n, n - m]);
Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
Flatten[%]
|
|
CROSSREFS
|
Sequence in context: A061891 A063194 A071529 this_sequence A060409 A151968 A115632
Adjacent sequences: A154919 A154920 A154921 this_sequence A154923 A154924 A154925
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jan 17 2009
|
|
|
Search completed in 0.002 seconds
|
