OFFSET
1,1
EXAMPLE
4 is a term because 4 = 2 * 2;
77 is a term because 77 = 7 * 11;
6 is not a term because 6 = 2 * 3;
21 is not a term because 21 = 3 * 7;
30 is not a term because 30 = 2 * 3 * 5;
210 is not a term because 210 = 2 * 3 * 5 * 7.
MAPLE
q:= n-> is(igcd(n, 210) in {2, 3, 5, 7}):
select(q, [$0..200])[]; # Alois P. Heinz, Jun 16 2020
MATHEMATICA
Select[Range[150], Count[IntegerExponent[#, {2, 3, 5, 7}], 0] == 3 &] (* Amiram Eldar, Jun 16 2020 *)
PROG
(Haskell) a335650 = [x | x <- [0..], (gcd x 210) `elem` [2, 3, 5, 7]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Andrew, Jun 15 2020
STATUS
approved