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