OFFSET
1,1
COMMENTS
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
An integer partition is Look-and-Say iff it is possible to choose a disjoint family of strict partitions, one of each of its multiplicities. These are ranked by A351294.
An integer partition is section-sum iff it is possible to choose a disjoint family of strict partitions, one of each of its positive 0-appended differences. These are ranked by A381432.
EXAMPLE
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}
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[#]]]&]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, May 18 2025
STATUS
approved
