A383518 Heinz numbers of integer partitions that are Look-and-Say and section-sum but not conjugate Wilf partitions.
325, 845, 931, 1625, 2527, 3509, 6253, 6517, 8125, 9251
Offset: 1
Examples
The terms together with their prime indices begin: 325: {3,3,6} 845: {3,6,6} 931: {4,4,8} 1625: {3,3,3,6} 2527: {4,8,8} 3509: {5,5,10} 6253: {6,6,12} 6517: {4,4,4,8} 8125: {3,3,3,3,6} 9251: {5,10,10}
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[1000],disjointFamilies[prix[#]]!={}&&disjointFamilies[conj[prix[#]]]!={}&&!UnsameQ@@Length/@Split[conj[prix[#]]]&]
Comments