A383096 Number of integer partitions of n having no permutation with all equal run-sums.
0, 0, 0, 1, 1, 5, 4, 13, 15, 25, 35, 54, 58, 99, 128, 168, 217, 295, 358, 488, 603, 784, 995, 1253, 1517, 1953, 2429, 2997, 3688, 4563, 5532, 6840, 8311, 10135, 12303, 14875, 17842, 21635, 26008, 31177, 37247, 44581, 53062, 63259, 75130, 89096, 105551, 124752, 147015, 173520
Offset: 0
Keywords
Examples
The a(3) = 1 through a(8) = 15 partitions: (21) (31) (32) (42) (43) (53) (41) (51) (52) (62) (221) (321) (61) (71) (311) (411) (322) (332) (2111) (331) (431) (421) (521) (511) (611) (2221) (3221) (3211) (3311) (4111) (4211) (22111) (5111) (31111) (22211) (211111) (32111) (311111) (2111111)
Crossrefs
For distinct instead of equal run-sums we appear to have A381717, q.v.
Counting and ranking partitions by run-lengths and run-sums:
Programs
-
Mathematica
Table[Length[Select[IntegerPartitions[n],Length[Select[Permutations[#],SameQ@@Total/@Split[#]&]]==0&]],{n,0,15}]
Extensions
More terms from Bert Dobbelaere, Apr 26 2025