A383510 Number of integer partitions of n that are neither Look-and-Say nor section-sum.
0, 0, 0, 1, 0, 0, 3, 2, 5, 10, 14, 19, 33, 38, 55, 81, 107, 137, 201, 248, 349, 450, 596, 745, 1000, 1242, 1611, 2007, 2567, 3164, 4025, 4920, 6166, 7545, 9347, 11360, 14004, 16932, 20686, 24949, 30305, 36366, 43939, 52521, 63098, 75221
Offset: 0
Keywords
Examples
The a(3) = 1 through a(10) = 14 partitions: (21) . . (42) (421) (431) (432) (532) (321) (3211) (521) (531) (541) (2211) (3221) (621) (721) (4211) (3321) (4321) (32111) (4221) (5221) (4311) (5311) (5211) (6211) (32211) (32221) (42111) (33211) (321111) (42211) (43111) (52111) (421111) (3211111)
Crossrefs
Programs
-
Mathematica
disjointFamilies[y_]:=Select[Tuples[IntegerPartitions /@ Length/@Split[y]],UnsameQ@@Join@@#&]; conj[y_]:=If[Length[y]==0,y, Table[Length[Select[y,#>=k&]], {k,1,Max[y]}]]; Table[Length[Select[IntegerPartitions[n], disjointFamilies[#]=={} && disjointFamilies[conj[#]]=={}&]], {n,0,15}]
Comments