|
%I #56 Jun 17 2022 11:59:26
%S 1,2,1,1,3,2,1,1,1,1,4,3,2,2,2,1,1,1,1,1,1,1,5,4,3,3,2,2,2,2,1,1,1,1,
%T 1,1,1,1,1,1,1,1,6,5,4,4,3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,7,6,5,5,4,4,4,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,1,1,1
%N Irregular triangle read by rows in which row n lists all parts of all partitions of n, in nonincreasing order.
%C Also due to the correspondence divisor/part row n lists the terms of the n-th row of A338156 in nonincreasing order. In other words: row n lists in nonincreasing order the divisors of the terms of the n-th row of A176206. - _Omar E. Pol_, Jun 16 2022
%H Paolo Xausa, <a href="/A302246/b302246.txt">Table of n, a(n) for n = 1..9687</a>, (rows 1..18 of triangle, flattened).
%e Triangle begins:
%e 1;
%e 2,1,1;
%e 3,2,1,1,1,1;
%e 4,3,2,2,2,1,1,1,1,1,1,1;
%e 5,4,3,3,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1;
%e 6,5,4,4,3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1;
%e ...
%e For n = 4 the partitions of 4 are [4], [2, 2], [3, 1], [2, 1, 1], [1, 1, 1, 1]. There is only one 4, only one 3, three 2's and seven 1's, so the 4th row of this triangle is [4, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1].
%e On the other hand for n = 4 the 4th row of A176206 is [4, 3, 2, 2, 1, 1, 1] and the divisors of these terms are [1, 2, 4], [1, 3], [1, 2], [1, 2], [1], [1], [1] the same as the 4th row of A338156. These divisors listed in nonincreasing order give the 4th row of this triangle. - _Omar E. Pol_, Jun 16 2022
%t nrows=10;Array[ReverseSort[Flatten[IntegerPartitions[#]]]&,nrows] (* _Paolo Xausa_, Jun 16 2022 *)
%o (PARI) row(n) = my(list = List()); forpart(p=n, for (k=1, #p, listput(list, p[k]));); vecsort(Vec(list), , 4); \\ _Michel Marcus_, Jun 16 2022
%Y Both column 1 and 2 are A000027.
%Y Row n has length A006128(n).
%Y The sum of row n is A066186(n).
%Y The number of parts k in row n is A066633(n,k).
%Y The sum of all parts k in row n is A138785(n,k).
%Y The number of parts >= k in row n is A181187(n,k).
%Y The sum of all parts >= k in row n is A206561(n,k).
%Y The number of parts <= k in row n is A210947(n,k).
%Y The sum of all parts <= k in row n is A210948(n,k).
%Y First differs from A036037, A080577, A181317, A237982 and A239512 at a(13) = T(4,3).
%Y Cf. A302247 (mirror).
%Y Cf. A000041, A027550, A176206, A221529, A336812, A338156.
%K nonn,tabf
%O 1,2
%A _Omar E. Pol_, Apr 05 2018
|
