OFFSET
1,1
COMMENTS
Also the union of prime-indexed rows of A215366.
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
EXAMPLE
Sequence of all integer partitions of prime numbers begins (2), (1, 1), (3), (2, 1), (1, 1, 1), (5), (4, 1), (3, 2), (7), (2, 2, 1), (3, 1, 1), (2, 1, 1, 1), (6, 1).
MATHEMATICA
primeMS[n_] := If[n == 1, {}, Flatten[Cases[FactorInteger[n], {p_, k_} :> Table[PrimePi[p], {k}]]]]; Select[Range[100], PrimeQ[Total[primeMS[#]]] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jun 24 2018
STATUS
approved