|
%I #13 Sep 08 2022 08:45:42
%S 1,1,1,1,30,1,1,210,210,1,1,780,960,780,1,1,2100,2850,2850,2100,1,1,
%T 4650,6720,7290,6720,4650,1,1,9030,13650,15540,15540,13650,9030,1,1,
%U 15960,24960,29400,30720,29400,24960,15960,1,1,26280,42210,51030,54900,54900,51030,42210,26280,1
%N Triangle T(n, k) = 1 if k = 0 or k = n, otherwise n^5 - k^5 - (n-k)^5, read by rows.
%H G. C. Greubel, <a href="/A157634/b157634.txt">Rows n = 0..50 of the triangle, flattened</a>
%F T(n, k) = 1 if k = 0 or k = n, otherwise 5*n*k*(n-k)*(n^2 -n*k +k^2).
%F T(n, n-k) = T(n, k).
%F Sum_{k=0..n} T(n, k) = 2 - [n=0] + 30*A006858(n).
%F From _G. C. Greubel_, Dec 13 2021: (Start)
%F T(n, 1) = [n<2] + 30*A006325(n).
%F T(2*n, n) = [n=0] + 30*A000584(n). (End)
%e Triangle begins as:
%e 1;
%e 1, 1;
%e 1, 30, 1;
%e 1, 210, 210, 1;
%e 1, 780, 960, 780, 1;
%e 1, 2100, 2850, 2850, 2100, 1;
%e 1, 4650, 6720, 7290, 6720, 4650, 1;
%e 1, 9030, 13650, 15540, 15540, 13650, 9030, 1;
%e 1, 15960, 24960, 29400, 30720, 29400, 24960, 15960, 1;
%e 1, 26280, 42210, 51030, 54900, 54900, 51030, 42210, 26280, 1;
%e 1, 40950, 67200, 82950, 91200, 93750, 91200, 82950, 67200, 40950, 1;
%t T[n_, k_]:= If[n*k*(n-k)==0, 1, n^5 - (k^5 + (n-k)^5)];
%t Table[T[n, k], {n,0,10}, {k,0,n}]//Flatten
%o (Magma)
%o A157634:= func< n,k | k eq 0 or k eq n select 1 else n^5 - (k^5 + (n-k)^5) >;
%o [A157634(n, k): k in [0..n], n in [0..12]]; // _G. C. Greubel_, Dec 13 2021
%o (Sage)
%o def A157634(n,k): return 1 if (k==0 or k==n) else n^5 - (k^5 + (n-k)^5)
%o flatten([[A157634(n,k) for k in (0..n)] for n in (0..12)]) # _G. C. Greubel_, Dec 13 2021
%Y Cf. A000584, A006325, A006858.
%K nonn,tabl,easy
%O 0,5
%A _Roger L. Bagula_, Mar 03 2009
|
