cp's OEIS Frontend

A156047 Triangle read by rows: T(n, k) = (n+1)!*(1/k + 1/(n-k+1)).

%I A156047 #10 Sep 08 2022 08:45:41
%S A156047 4,9,9,32,24,32,150,100,100,150,864,540,480,540,864,5880,3528,2940,
%T A156047 2940,3528,5880,46080,26880,21504,20160,21504,26880,46080,408240,
%U A156047 233280,181440,163296,163296,181440,233280,408240,4032000,2268000,1728000,1512000,1451520,1512000,1728000,2268000,4032000
%N A156047 Triangle read by rows: T(n, k) = (n+1)!*(1/k + 1/(n-k+1)).
%C A156047 Row sums are (n+1)*A052517(n+2) = {4, 18, 88, 500, 3288, 24696, 209088, 1972512, 20531520, ...}.
%H A156047 G. C. Greubel, <a href="/A156047/b156047.txt">Rows n = 1..100 of triangle, flattened</a>
%F A156047 T(n, k) = (n+1)*(n+1)!/(k*(n-k+1)).
%F A156047 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
%e A156047 Triangle begins as:
%e A156047       4;
%e A156047       9,     9;
%e A156047      32,    24,    32;
%e A156047     150,   100,   100,   150;
%e A156047     864,   540,   480,   540,   864;
%e A156047    5880,  3528,  2940,  2940,  3528,  5880;
%e A156047   46080, 26880, 21504, 20160, 21504, 26880, 46080;
%p A156047 seq(seq( (n+1)*(n+1)!/(k*(n-k+1)), k=1..n), n=1..10); # _G. C. Greubel_, Dec 02 2019
%t A156047 Table[(n+1)*(n+1)!/(k*(n-k+1)), {n,10}, {k,n}]//Flatten (* modified by _G. C. Greubel_, Dec 02 2019 *)
%o A156047 (PARI) T(n,k) = (n+1)*(n+1)!/(k*(n-k+1)); \\ _G. C. Greubel_, Dec 02 2019
%o A156047 (Magma) [(n+1)*Factorial(n+1)/(k*(n-k+1)): k in [1..n], n in [1..10]]; // _G. C. Greubel_, Dec 02 2019
%o A156047 (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
%o A156047 (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
%Y A156047 Cf. A001008, A002805, A052517, A058298.
%K A156047 nonn,tabl,easy
%O A156047 1,1
%A A156047 _Roger L. Bagula_, Feb 02 2009
%E A156047 Offset changed by _G. C. Greubel_, Dec 02 2019