|
Search: id:A142470
|
|
|
| A142470 |
|
A new {1,8,1} type symmetrical triangle sequence related to A008459: f(n,m)=Binomial[n, m]*Product[k!*(n + k)!/((m + k)!*(n - m + k)!), {k, 1, 2}]; t(n,m)=2^(m - n)*f(n, m)*Sum[Binomial[n, k]*Binomial[k, m], {k, m, n}]. |
|
+0
1
|
|
| 1, 1, 1, 1, 8, 1, 1, 30, 30, 1, 1, 80, 300, 80, 1, 1, 175, 1750, 1750, 175, 1, 1, 336, 7350, 19600, 7350, 336, 1, 1, 588, 24696, 144060, 144060, 24696, 588, 1, 1, 960, 70560, 790272, 1728720, 790272, 70560, 960, 1, 1, 1485, 178200, 3492720, 14669424
(list; graph; listen)
|
|
|
OFFSET
|
1,5
|
|
|
COMMENT
|
Row sums are:
{1, 2, 10, 62, 462, 3852, 34974, 338690, 3452306, 36683660, 403472368}.
|
|
FORMULA
|
A new {1,8,1} type symmetrical triangle sequence related to A008459: f(n,m)=Binomial[n, m]*Product[k!*(n + k)!/((m + k)!*(n - m + k)!), {k, 1, 2}]; t(n,m)=2^(m - n)*f(n, m)*Sum[Binomial[n, k]*Binomial[k, m], {k, m, n}].
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 8, 1},
{1, 30, 30, 1},
{1, 80, 300, 80, 1},
{1, 175, 1750, 1750, 175, 1},
{1, 336, 7350, 19600, 7350, 336, 1},
{1, 588, 24696, 144060, 144060, 24696, 588, 1},
{1, 960, 70560, 790272, 1728720, 790272, 70560, 960, 1},
{1, 1485, 178200, 3492720, 14669424, 14669424, 3492720, 178200, 1485, 1},
{1, 2200, 408375, 13068000, 96049800, 184415616, 96049800, 13068000, 408375, 2200, 1}
|
|
MATHEMATICA
|
f[0, 0] = 1; f[n_, m_] := f[n, m] = Binomial[n, m]*Product[k!*(n + k)!/((m + k)!*(n - m + k)!), {k, 1, 2}]; t[n_, m_] = 2^(m - n)*f[n, m]*Sum[Binomial[n, k]*Binomial[k, m], {k, m, n}]; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
|
|
CROSSREFS
|
Cf. A008459.
Sequence in context: A155452 A147295 A141696 this_sequence A144439 A157208 A141686
Adjacent sequences: A142467 A142468 A142469 this_sequence A142471 A142472 A142473
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 20 2008
|
|
|
Search completed in 0.002 seconds
|
