OFFSET
1,1
COMMENTS
Row sums are (n+1)*A052517(n+2) = {4, 18, 88, 500, 3288, 24696, 209088, 1972512, 20531520, ...}.
LINKS
G. C. Greubel, Rows n = 1..100 of triangle, flattened
FORMULA
T(n, k) = (n+1)*(n+1)!/(k*(n-k+1)).
Sum_{k=1..n} T(n,k) = 2*(n+1)!*H(n), where H(n) is the harmonic number. - G. C. Greubel, Dec 02 2019
EXAMPLE
Triangle begins as:
4;
9, 9;
32, 24, 32;
150, 100, 100, 150;
864, 540, 480, 540, 864;
5880, 3528, 2940, 2940, 3528, 5880;
46080, 26880, 21504, 20160, 21504, 26880, 46080;
MAPLE
seq(seq( (n+1)*(n+1)!/(k*(n-k+1)), k=1..n), n=1..10); # G. C. Greubel, Dec 02 2019
MATHEMATICA
Table[(n+1)*(n+1)!/(k*(n-k+1)), {n, 10}, {k, n}]//Flatten (* modified by G. C. Greubel, Dec 02 2019 *)
PROG
(PARI) T(n, k) = (n+1)*(n+1)!/(k*(n-k+1)); \\ G. C. Greubel, Dec 02 2019
(Magma) [(n+1)*Factorial(n+1)/(k*(n-k+1)): k in [1..n], n in [1..10]]; // G. C. Greubel, Dec 02 2019
(Sage) [[(n+1)*factorial(n+1)/(k*(n-k+1)) for k in (1..n)] for n in (1..10)] # G. C. Greubel, Dec 02 2019
(GAP) Flat(List([1..10], n-> List([1..n], k-> (n+1)*Factorial(n+1)/(k*(n-k+1)) ))); # G. C. Greubel, Dec 02 2019
CROSSREFS
KEYWORD
AUTHOR
Roger L. Bagula, Feb 02 2009
EXTENSIONS
Offset changed by G. C. Greubel, Dec 02 2019
STATUS
approved