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