OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range[4500], Union[FactorInteger[#][[;; , 2]]] == {1, 2, 3} &]
PROG
(PARI) is(k) = Set(factor(k)[, 2]) == [1, 2, 3];
CROSSREFS
A163569 is a subsequence.
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jul 29 2024
STATUS
approved