OFFSET
1,1
COMMENTS
Equivalently, multiples of 6 with the largest prime divisor < 10.
FORMULA
MATHEMATICA
With[{p = Prime[Range[4]]}, 6 * Select[Range[140], Times @@ (p^IntegerExponent[#, p]) == # &]] (* Amiram Eldar, Sep 23 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Jul 06 2003
EXTENSIONS
More terms from David Wasserman, Jan 28 2005
Offset changed by Andrew Howroyd, Sep 19 2024
STATUS
approved