A383506 Number of non Wilf section-sum partitions of n.
0, 0, 0, 0, 1, 2, 1, 3, 4, 4, 7, 9, 12, 18, 25, 32, 42, 55, 64, 87, 101, 128, 147, 192, 218, 273, 314, 394, 450, 552, 631, 772, 886, 1066, 1221, 1458, 1677, 1980, 2269, 2672, 3029
Offset: 0
Examples
The a(4) = 1 through a(12) = 12 partitions (A=10, B=11): (31) (32) (51) (43) (53) (54) (64) (65) (75) (41) (52) (62) (63) (73) (74) (84) (61) (71) (72) (82) (83) (93) (3311) (81) (91) (92) (A2) (631) (A1) (B1) (3322) (632) (732) (4411) (641) (831) (731) (5511) (6311) (6411) (7311) (63111) (333111)
Crossrefs
Ranking sequences are shown in parentheses below.
These partitions are ranked by (A383514).
Programs
-
Mathematica
disjointDiffs[y_]:=Select[Tuples[IntegerPartitions /@ Differences[Prepend[Sort[y],0]]], UnsameQ@@Join@@#&]; Table[Length[Select[IntegerPartitions[n], disjointDiffs[#]!={} && !UnsameQ@@Length/@Split[#]&]],{n,0,15}]
Comments