|
| |
|
|
A123163
|
|
Triangle read by rows: binomial[(n-m)^2,m^2].
|
|
1
| |
|
|
1, 1, 0, 1, 1, 0, 1, 4, 0, 0, 1, 9, 1, 0, 0, 1, 16, 126, 0, 0, 0, 1, 25, 1820, 1, 0, 0, 0, 1, 36, 12650, 11440, 0, 0, 0, 0, 1, 49, 58905, 2042975, 1, 0, 0, 0, 0, 1, 64, 211876, 94143280, 2042975, 0, 0, 0, 0, 0, 1, 81, 635376, 2054455634, 7307872110, 1, 0, 0, 0, 0, 0
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,8
|
|
|
FORMULA
| a(n,m) = (n^2 - 2*n*m + m^2)!/((m^2)!(n^2 - 2*n*m)!)
|
|
|
EXAMPLE
| 1
1, 0
1, 1, 0
1, 4, 0, 0
1, 9, 1, 0, 0
1, 16, 126, 0, 0, 0
1, 25, 1820, 1, 0, 0, 0
1, 36, 12650, 11440, 0, 0, 0, 0
|
|
|
MATHEMATICA
| t[n_, m_] = (n^2 - 2*n*m + m^2)!/((m^2)!(n^2 - 2*n*m)!); a = Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[a]
|
|
|
CROSSREFS
| Sequence in context: A078669 A046783 A134832 * A194794 A177893 A058305
Adjacent sequences: A123160 A123161 A123162 * A123164 A123165 A123166
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 02 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 04 2006
|
| |
|
|
