OFFSET
1,2
COMMENTS
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
Also Heinz numbers of partitions whose greatest part is less than or equal to half the sum of parts, i.e., numbers n whose sum of prime indices A056239(n) is at least twice the greatest prime index A061395(n). - Gus Wiseman, May 23 2021
EXAMPLE
Each term paired with its Heinz partition and a realizing set multipartition with no singletons:
1: (): {}
4: (11): {{1,2}}
8: (111): {{1,2,3}}
9: (22): {{1,2},{1,2}}
12: (211): {{1,2},{1,3}}
16: (1111): {{1,2,3,4}}
18: (221): {{1,2},{1,2,3}}
24: (2111): {{1,2},{1,3,4}}
25: (33): {{1,2},{1,2},{1,2}}
27: (222): {{1,2,3},{1,2,3}}
30: (321): {{1,2},{1,2},{1,3}}
32: (11111): {{1,2,3,4,5}}
36: (2211): {{1,2},{1,2,3,4}}
40: (3111): {{1,2},{1,3},{1,4}}
MATHEMATICA
nrmptn[n_]:=Join@@MapIndexed[Table[#2[[1]], {#1}]&, If[n==1, {}, Flatten[Cases[FactorInteger[n]//Reverse, {p_, k_}:>Table[PrimePi[p], {k}]]]]];
sqnopfacs[n_]:=If[n<=1, {{}}, Join@@Table[Map[Prepend[#, d]&, Select[sqnopfacs[n/d], Min@@#>=d&]], {d, Select[Rest[Divisors[n]], !PrimeQ[#]&&SquareFreeQ[#]&]}]]
Select[Range[100], Length[sqnopfacs[Times@@Prime/@nrmptn[#]]]>0&]
CROSSREFS
These partitions are counted by A110618.
The even-weight version is A320924.
The conjugate case of equality is A340387.
The conjugate version is A344291.
The opposite conjugate version is A344296.
The opposite version is A344414.
The case of equality is A344415.
The opposite even-weight version is A344416.
A000070 counts non-multigraphical partitions.
A025065 counts palindromic partitions.
A035363 counts partitions into even parts.
A334201 adds up all prime indices except the greatest.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 26 2018
STATUS
approved