OFFSET
1,2
COMMENTS
The sequence is closed under multiplication.
MATHEMATICA
s = Select[Prime[Range[100]], Mod[#, 3] == 2 &] (* A003627 *)
Select[r = Range[Max[s]], Intersection[#/s, r] == {} &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 09 2023
STATUS
approved