%I #28 Dec 03 2019 07:12:26
%S 1,2,2,3,0,3,4,4,0,4,5,0,0,0,5,6,6,6,0,0,6,7,0,0,0,0,0,7,8,8,0,8,0,0,
%T 0,8,9,0,9,0,0,0,0,0,9,10,10,0,0,10,0,0,0,0,10,11,0,0,0,0,0,0,0,0,0,
%U 11,12,12,12,12,0,12,0,0,0,0,0,12,13,0,0,0,0,0,0,0,0,0,0,0,13,14,14,0,0,0,0,14
%N Triangle T(n,k) = n*A051731(n,k) read by rows.
%C Replace the 1's in row n of A051731 with n's.
%C T(n,k) is the sum of the k's in the partitions of n into equal parts. - _Omar E. Pol_, Nov 25 2019
%H Reinhard Zumkeller, <a href="/A127446/b127446.txt">Rows n = 1..125 of triangle, flattened</a>
%F T(n,k) = k*A126988(n,k). - _Omar E. Pol_, Nov 25 2019
%e First few rows of the triangle:
%e 1;
%e 2, 2;
%e 3, 0, 3;
%e 4, 4, 0, 4;
%e 5, 0, 0, 0, 5;
%e 6, 6, 6, 0, 0, 6;
%e 7, 0, 0, 0, 0, 0, 7;
%e ...
%e For n = 6 the partitions of 6 into equal parts are [6], [3,3], [2,2,2], [1,1,1,1,1,1], so the sum of the k's are [6, 6, 6, 0, 0, 6] respectively, equaling the 6th row of triangle. - _Omar E. Pol_, Nov 25 2019
%p A127446 := proc(n,k) if n mod k = 0 then n; else 0; fi; end: for n from 1 to 20 do for k from 1 to n do printf("%d,",A127446(n,k)) ; od: od: # _R. J. Mathar_, May 08 2009
%t Flatten[Table[If[Mod[n, k] == 0, n, 0], {n, 20}, {k, n}]] (* _Vincenzo Librandi_, Nov 02 2016 *)
%o (Haskell)
%o a127446 n k = a127446_tabl !! (n-1) !! (k-1)
%o a127446_row n = a127446_tabl !! (n-1)
%o a127446_tabl = zipWith (\v ws -> map (* v) ws) [1..] a051731_tabl
%o -- _Reinhard Zumkeller_, Jan 21 2014
%Y Cf. A038040 (row sums), A051731, A126988, A244051, A328362.
%K nonn,tabl,easy
%O 1,2
%A _Gary W. Adamson_, Jan 14 2007
%E Edited and extended by _R. J. Mathar_, May 08 2009