A383516 Heinz numbers of Look-and-Say partitions that are not section-sum partitions.
12, 18, 24, 48, 54, 63, 72, 96, 108, 144, 147, 162, 189, 192, 216, 288, 324, 360, 384, 432, 486, 504, 540, 567, 576, 600, 648, 720, 756, 768, 792, 864, 936, 972, 1008, 1029, 1152, 1176, 1188, 1200, 1224, 1296, 1323, 1350, 1368, 1400, 1404, 1440, 1458, 1500
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 12: {1,1,2} 18: {1,2,2} 24: {1,1,1,2} 48: {1,1,1,1,2} 54: {1,2,2,2} 63: {2,2,4} 72: {1,1,1,2,2} 96: {1,1,1,1,1,2} 108: {1,1,2,2,2} 144: {1,1,1,1,2,2} 147: {2,4,4} 162: {1,2,2,2,2} 189: {2,2,2,4} 192: {1,1,1,1,1,1,2} 216: {1,1,1,2,2,2} 288: {1,1,1,1,1,2,2} 324: {1,1,2,2,2,2} 360: {1,1,1,2,2,3} 384: {1,1,1,1,1,1,1,2}
Crossrefs
Programs
-
Mathematica
disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&]; prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]]; Select[Range[100],disjointFamilies[prix[#]]!={}&&disjointFamilies[conj[prix[#]]]=={}&]
Comments