A353843 Irregular triangle read by rows where T(n,k) is the number of integer partitions of n with partition run-sum trajectory ending in a partition of length k. All zeros removed.
1, 1, 2, 2, 1, 4, 1, 2, 5, 5, 5, 1, 2, 12, 1, 8, 11, 3, 3, 19, 8, 5, 27, 9, 1, 2, 34, 19, 1, 15, 26, 34, 2, 2, 49, 45, 5, 5, 68, 48, 14, 4, 58, 98, 15, 1, 18, 76, 105, 31, 1, 2, 88, 159, 46, 2, 13, 98, 191, 79, 4, 2, 114, 261, 105, 8, 14, 148, 282, 164, 19
Offset: 0
Examples
Triangle begins: 1 1 2 2 1 4 1 2 5 5 5 1 2 12 1 8 11 3 3 19 8 5 27 9 1 2 34 19 1 15 26 34 2 2 49 45 5 5 68 48 14 4 58 98 15 1 For example, row n = 8 counts the following partitions: (8) (53) (431) (44) (62) (521) (422) (71) (3221) (2222) (332) (4211) (611) (41111) (3311) (221111) (5111) (11111111) (22211) (32111) (311111) (2111111)
Crossrefs
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n], Length[FixedPoint[Sort[Total/@Split[#]]&,#]]==k&]],{n,0,15},{k,0,n}]
Comments