OFFSET
1,1
EXAMPLE
The product of the nonzero digits of 42 is 4*2 = 8, which does not divide 42.
MATHEMATICA
Select[Range[100], !Divisible[#, Times @@ Select[IntegerDigits[#], #1 > 0 &]] &] (* Amiram Eldar, Jul 27 2021 *)
PROG
(Python)
from math import prod
def ok(n): return n > 0 and n%prod([int(d) for d in str(n) if d != '0'])
print(list(filter(ok, range(88)))) # Michael S. Branicky, Jul 27 2021
(PARI) isok(k) = k % vecprod(select(x->(x>0), digits(k))); \\ Michel Marcus, Jul 28 2021
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Michael Gohn, Joshua Harrington, Sophia Lebiere, Hani Samamah, Kyla Shappell, Wing Hong Tony Wong, Jul 27 2021
STATUS
approved