|
Search: id:A141597
|
|
|
| A141597 |
|
New type of neo-combination: k=2;l=1; t(n,m,k,l)=(1 + l)*Binomial[n, m]^k - l;. |
|
+0
1
|
|
| 1, 1, 1, 1, 7, 1, 1, 17, 17, 1, 1, 31, 71, 31, 1, 1, 49, 199, 199, 49, 1, 1, 71, 449, 799, 449, 71, 1, 1, 97, 881, 2449, 2449, 881, 97, 1, 1, 127, 1567, 6271, 9799, 6271, 1567, 127, 1, 1, 161, 2591, 14111, 31751, 31751, 14111, 2591, 161, 1, 1, 199, 4049, 28799, 88199
(list; table; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
Row sums are:
1, 2, 9, 36, 135, 498, 1841, 6856, 25731, 97230, 369501};
|
|
FORMULA
|
k=2;l=1; t(n,m,k,l)=(1 + l)*Binomial[n, m]^k - l;
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 7, 1},
{1, 17, 17, 1},
{1, 31, 71, 31, 1},
{1, 49, 199, 199, 49, 1},
{1, 71, 449, 799, 449, 71, 1},
{1, 97, 881, 2449, 2449, 881, 97, 1},
{1, 127, 1567, 6271, 9799, 6271, 1567, 127, 1},
{1, 161, 2591, 14111, 31751, 31751, 14111, 2591, 161, 1},
{1, 199, 4049, 28799, 88199, 127007, 88199, 28799, 4049, 199, 1}
|
|
MATHEMATICA
|
Clear[t, n, m, k, l] t[n_, m_, k_, l_] := (1 + l)*Binomial[n, m]^k - l; k = 2; l = 1; Table[Table[t[n, m, k, l], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A109128.
Sequence in context: A131065 A081580 A082110 this_sequence A119727 A046739 A056752
Adjacent sequences: A141594 A141595 A141596 this_sequence A141598 A141599 A141600
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Aug 21 2008
|
|
|
Search completed in 0.002 seconds
|
