OFFSET
1,1
COMMENTS
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).
EXAMPLE
Sequence of strict integer partitions of prime numbers into prime parts, preceded by their Heinz numbers, begins:
3: (2)
5: (3)
11: (5)
15: (3,2)
17: (7)
31: (11)
33: (5,2)
41: (13)
59: (17)
67: (19)
83: (23)
93: (11,2)
MATHEMATICA
primeMS[n_]:=If[n===1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], And[SquareFreeQ[#], PrimeQ[Total[primeMS[#]]], And@@PrimeQ/@primeMS[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 25 2018
STATUS
approved