|
| |
|
|
A123147
|
|
Multinomial based triangular function base on the sum of squares: out[n]=4*(n+2)!*(n*(n + 1)*(2*n + 1)/6)!/(4*(m^2)!*Abs[2 + 2*m^2 - (n*(n + 1)*(2*n + 1)/6)]!).
|
|
0
| |
|
|
1, 6, 1, 480, 2880, 1, 21840, 2882880, 18162144000, 40040, 626400, 473558400, 3270820512960000, 145032891526185062400000, 380331009246988800000, 14968800, 41254012800, 22288874800832640000
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| cubic generalization: T[n, m] = (a0*n^3+b0*n^2+c0*n+d0)!/(4*(m^2)!*Abs[2 + 2*m^2 - (a0*n^3+b0*n^2+c0*n+d0)]!)
|
|
|
FORMULA
| a(n,m) = (n*(n + 1)*(2*n + 1)/6)!/(4*(m^2)!*Abs[2 + 2*m^2 - (n*(n + 1)*(2*n + 1)/6)]!) out[n]=4*(n+2)!*a(n,m)
|
|
|
EXAMPLE
| 1
6, 1
480, 2880, 1
21840, 2882880, 18162144000, 40040
|
|
|
MATHEMATICA
| T[n_, m_] = (n*(n + 1)*( 2*n + 1)/6)!/(4*(m^2)!*Abs[2 + 2*m^2 - (n*(n + 1)*(2*n + 1)/6)]!) a = Table[Table[4*(n + 2)!*T[n, m], {m, 0, n}], {n, 0, 10}] Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A051151 A009330 A183284 * A119831 A130143 A195486
Adjacent sequences: A123144 A123145 A123146 * A123148 A123149 A123150
|
|
|
KEYWORD
| nonn,tabl,uned
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2006
|
| |
|
|
