OFFSET
1,1
COMMENTS
A subsequence of A001597.
A number n is in the sequence iff n = 2 or the prime indices of n have a common divisor > 1 and the Heinz number of the multiset of prime multiplicities of n, namely A181819(n), is already in the sequence.
The Heinz number of an integer partition (y_1, ..., y_k) is prime(y_1) * ... * prime(y_k).
EXAMPLE
The sequence of partitions whose Heinz numbers belong to the sequence begins: (22), (33), (222), (44), (2222), (55), (333), (66), (22222), (77), (444), (88), (4422), (99), (3333), (222222).
MATHEMATICA
supperQ[n_]:=Or[n==2, And[GCD@@PrimePi/@FactorInteger[n][[All, 1]]>1, supperQ[Times@@Prime/@FactorInteger[n][[All, 2]]]]];
Select[Range[10000], And[!PrimeQ[#], supperQ[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 12 2018
STATUS
approved