|
Search: id:A123147
|
|
|
| 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
|
|
| 1, 6, 1, 480, 2880, 1, 21840, 2882880, 18162144000, 40040, 626400, 473558400, 3270820512960000, 145032891526185062400000, 380331009246988800000, 14968800, 41254012800, 22288874800832640000
(list; table; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
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: A009384 A051151 A009330 this_sequence A119831 A130143 A111754
Adjacent sequences: A123144 A123145 A123146 this_sequence A123148 A123149 A123150
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 01 2006
|
|
|
Search completed in 0.005 seconds
|
