cp's OEIS Frontend

A141418 Triangle read by rows: T(n,k) = k * (2*n - k - 1) / 2, 1 <= k <= n.

%I A141418 #18 Mar 31 2021 01:29:03
%S A141418 0,1,1,2,3,3,3,5,6,6,4,7,9,10,10,5,9,12,14,15,15,6,11,15,18,20,21,21,
%T A141418 7,13,18,22,25,27,28,28,8,15,21,26,30,33,35,36,36,9,17,24,30,35,39,42,
%U A141418 44,45,45
%N A141418 Triangle read by rows: T(n,k) = k * (2*n - k - 1) / 2, 1 <= k <= n.
%C A141418 From _Reinhard Zumkeller_, Aug 04 2014: (Start)
%C A141418 n-th row = half of Dynkin diagram weights for the Cartan Groups D_n.
%C A141418 n-th row = partial sums of n-th row of A025581. (End)
%D A141418 R. N. Cahn, Semi-Simple Lie Algebras and Their Representations, Dover, NY, 2006, ISBN 0-486-44999-8, p. 139.
%H A141418 Reinhard Zumkeller, <a href="/A141418/b141418.txt">Rows n = 1..120 of triangle, flattened</a>
%F A141418 T(n, K) = k*(2*n - k - 1)/2.
%F A141418 Sum_{k=1..n} T(n, k) = 2*binomial(n+1, 3) = A007290(n+1). - _Reinhard Zumkeller_, Aug 04 2014
%e A141418 Triangle begins as:
%e A141418   0;
%e A141418   1,  1;
%e A141418   2,  3,  3;
%e A141418   3,  5,  6,  6;
%e A141418   4,  7,  9, 10, 10;
%e A141418   5,  9, 12, 14, 15, 15;
%e A141418   6, 11, 15, 18, 20, 21, 21;
%e A141418   7, 13, 18, 22, 25, 27, 28, 28;
%e A141418   8, 15, 21, 26, 30, 33, 35, 36, 36;
%e A141418   9, 17, 24, 30, 35, 39, 42, 44, 45, 45;
%p A141418 A141418:= (n,k)-> k*(2*n-k-1)/2; seq(seq(A141418(n,k), k=1..n), n=1..12); # _G. C. Greubel_, Mar 30 2021
%t A141418 T[n_, k_]= k*(2*n-k-1)/2; Table[T[n, k], {n,12}, {k,n}]//Flatten
%o A141418 (Haskell)
%o A141418 a141418 n k = k * (2 * n - k - 1) `div` 2
%o A141418 a141418_row n = a141418_tabl !! (n-1)
%o A141418 a141418_tabl = map (scanl1 (+)) a025581_tabl
%o A141418 -- _Reinhard Zumkeller_, Aug 04 2014, Nov 18 2012
%o A141418 (Magma) [k*(2*n-k-1)/2: k in [1..n], n in [1..12]]; // _G. C. Greubel_, Mar 30 2021
%o A141418 (Sage) flatten([[k*(2*n-k-1)/2 for k in (1..n)] for n in (1..12)]) # _G. C. Greubel_, Mar 30 2021
%Y A141418 Cf. A025581, A087401, A141419.
%K A141418 nonn,tabl,easy
%O A141418 1,4
%A A141418 _Roger L. Bagula_, Aug 05 2008
%E A141418 Edited by _Reinhard Zumkeller_, Nov 18 2012