OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
Select[Range[511], PrimeOmega[#]==2&&!Divisible[#, 2]&&!Divisible[#, 3]&] (* James C. McMahon, Dec 08 2025 *)
PROG
(PARI) is_A391330(n) = ((n%2) && (n%3) && 2==bigomega(n));
CROSSREFS
Subsequence of A038509.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 07 2025
STATUS
approved
