OFFSET
1,1
COMMENTS
First differs from A299729 in lacking 462.
This sequence does not contain all multiples of its elements. For example, it contains 154 (with prime indices {1,4,5}) but not 462 (with prime indices {1,2,4,5}).
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], !UnsameQ@@Total/@Union[ReplaceList[primeMS[#], {___, s__, ___}:>{s}]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, May 20 2019
STATUS
approved