login
A364614
Numbers not divisible by any prime of the form 3*k - 1.
0
1, 3, 7, 9, 13, 19, 21, 27, 31, 37, 39, 43, 49, 57, 61, 63, 67, 73, 79, 81, 91, 93, 97, 103, 109, 111, 117, 127, 129, 133, 139, 147, 151, 157, 163, 169, 171, 181, 183, 189, 193, 199, 201, 211, 217, 219, 223, 229, 237, 241, 243, 247, 259, 271, 273, 277, 279
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
A215800 is a subsequence.
Sequence in context: A020498 A200567 A107771 * A215800 A103601 A291344
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 09 2023
STATUS
approved