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 integer partitions of prime numbers into prime parts together with their Heinz numbers begins:
3: (2)
5: (3)
11: (5)
15: (2,3)
17: (7)
31: (11)
33: (2,5)
41: (13)
45: (2,2,3)
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], And[PrimeQ[Total[primeMS[#]]], And@@PrimeQ/@primeMS[#]]&
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 24 2018
STATUS
approved