%I #17 Sep 08 2022 08:45:59
%S 0,1,1,8,4,8,27,15,15,27,64,40,32,40,64,125,85,65,65,85,125,216,156,
%T 120,108,120,156,216,343,259,203,175,175,203,259,343,512,400,320,272,
%U 256,272,320,400,512,729,585,477,405,369,369,405,477,585,729
%N Triangle read by rows (n >= 0, 0 <= k <= n, m = 3); T(n,k) = Sum{j=0..m} Sum{i=0..m} (-1)^(j+i)*C(i,j)*n^j*k^(m-j).
%C Read as an infinite symmetric square array, this is the table A(n,k)=(n+k)(n^2+k^2), cf. A321500 for the triangle with k <= n. - _M. F. Hasler_, Nov 22 2018
%H G. C. Greubel, <a href="/A198063/b198063.txt">Rows n=0..100 of triangle, flattened</a>
%F T(n,k) = 2*k^2*n - 2*k*n^2 + n^3.
%F T(n,0) = T(n,n) = n^m = n^3 = A000578(n).
%F T(2*n,n) = (m+1)n^m = 4*n^3 = A033430(n).
%F T(2*n+1,n+1) = (n+1)^(m+1) - n^(m+1) = (n+1)^4 - n^4 = A005917(n).
%F Sum{k=0..n} T(n,k) = (2*n^4 + 3*n^3 + n^2)/3 = A098077(n).
%F T(n+1,k+1)*C(n,k)^4/(k+1)^3 = A197653(n,k).
%e [0] 0
%e [1] 1, 1
%e [2] 8, 4, 8
%e [3] 27, 15, 15, 27
%e [4] 64, 40, 32, 40, 64
%e [5] 125, 85, 65, 65, 85, 125
%e [6] 216, 156, 120, 108, 120, 156, 216
%e [7] 343, 259, 203, 175, 175, 203, 259, 343
%e From _M. F. Hasler_, Nov 22 2018: (Start)
%e Can also be seen as the square array A(n,k)=(n+k)*(n^2 + k^2) read by antidiagonals:
%e n | k: 0 1 2 3 ...
%e --+----------------------
%e 0 | 0 1 8 27 ...
%e 1 | 1 4 15 40 ...
%e 2 | 8 15 32 65 ...
%e 3 | 27 40 65 108 ...
%e ... ... ...
%e (End)
%p A198063 := (n,k) -> 2*k^2*n-2*k*n^2+n^3:
%t t[n_, k_] := 2 k^2*n - 2 k*n^2 + n^3; Table[t[n, k], {n, 0, 10}, {k, 0, n}] // Flatten (* _Amiram Eldar_, Nov 22 2018 *)
%o (PARI) A198063(n,k)=2*k^2*n-2*k*n^2+n^3 \\ See also A321500. - _M. F. Hasler_, Nov 22 2018
%o (Magma) [[2*k^2*n-2*k*n^2+n^3: k in [0..n]]: n in [0..12]]; // _G. C. Greubel_, Nov 23 2018
%o (Sage) [[ 2*k^2*n-2*k*n^2+n^3 for k in range(n+1)] for n in range(12)] # _G. C. Greubel_, Nov 23 2018
%Y Cf. A057427, A003056, A073254, A198064, A198065.
%K nonn,tabl
%O 0,4
%A _Peter Luschny_, Oct 26 2011
|