|
Search: id:A123146
|
|
|
| A123146 |
|
Sum of integers triangular array based on trinomial: trinomial[n,k,m]=(n*(n+1)/2)!/(k!*m!*Abs[k+m-(n*(n+1)/2)]!) where k=1. |
|
+0
1
|
|
| 1, 1, 1, 3, 6, 3, 6, 30, 60, 60, 10, 90, 360, 840, 1260, 15, 210, 1365, 5460, 15015, 30030, 21, 420, 3990, 23940, 101745, 325584, 813960, 28, 756, 9828, 81900, 491400, 2260440, 8288280, 24864840, 36, 1260, 21420, 235620, 1884960, 11686752
(list; table; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Three states with the first state always one: Quadratic Generalization: t[n_, m_] = (a0*n^2+b0*n+c0)!/(m!*(Abs[m + 1 - (a0*n^2+b0*n+c0)])!)
|
|
FORMULA
|
a(n,m) = (n*(n+1)/2)!/(m!*Abs[1+m-(n*(n+1)/2)]!)
|
|
EXAMPLE
|
1
1, 1
3, 6, 3
6, 30, 60, 60
10, 90, 360, 840, 1260
15, 210, 1365, 5460, 15015, 30030
|
|
MATHEMATICA
|
t[n_, m_] = (n*(n + 1)/2)!/(m!*(Abs[m + 1 - (n*(n + 1)/2)])!) a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}] Flatten[a]
|
|
CROSSREFS
|
Sequence in context: A124860 A038138 A010704 this_sequence A016661 A135003 A090895
Adjacent sequences: A123143 A123144 A123145 this_sequence A123147 A123148 A123149
|
|
KEYWORD
|
nonn,uned,tabl
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2006
|
|
|
Search completed in 0.002 seconds
|
