OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
The sequence of all integer partitions whose Heinz numbers belong to the sequence begins: (4), (2,2), (4,1), (2,2,1), (8), (4,2), (9), (3,3), (2,2,2), (4,1,1), (2,2,1,1), (8,1), (4,2,1), (9,1), (4,4), (3,3,1), (16), (2,2,2,1), (4,1,1,1), (8,2), (4,2,2), (2,2,1,1,1), (8,1,1), (2,2,2,2), (4,2,1,1), (9,1,1), (25), (4,4,1), (3,3,1,1).
MATHEMATICA
Select[Range[100], With[{x=Times@@Cases[FactorInteger[#], {p_, k_}:>PrimePi[p]^k]}, !PrimeQ[x]&&PrimePowerQ[x]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Oct 19 2018
STATUS
approved