OFFSET
1,2
COMMENTS
A Zuckerman number is a number that is divisible by the product of its digits (A007602).
The terms in this sequence are not necessarily Zuckerman numbers. For example a(7) = 72 has product of digits = 14 and 72/14 = 36/7 = 5.142...
LINKS
Giovanni Resta, Zuckerman numbers, Numbers Aplenty.
EXAMPLE
The 8 divisors of 24 are all Zuckerman numbers, and also, 24 is the smallest integer that has at least 8 divisors that are Zuckerman numbers, hence 24 is a term.
MATHEMATICA
zuckQ[n_] := (prod = Times @@ IntegerDigits[n]) > 0 && Divisible[n, prod]; s[n_] := DivisorSum[n, 1 &, zuckQ[#] &]; smax = 0; seq = {}; Do[s1 = s[n]; If[s1 > smax, smax = s1; AppendTo[seq, n]], {n, 1, 10^5}]; seq (* Amiram Eldar, Jan 14 2021 *)
PROG
(PARI) isokz(n) = iferr(!(n % vecprod(digits(n))), E, 0); \\ A007602
lista(nn) = {my(m=0); for (n=1, nn, my(x = sumdiv(n, d, isokz(d)); ); if (x > m, m = x; print1(n, ", ")); ); } \\ Michel Marcus, Jan 15 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Jan 14 2021
EXTENSIONS
More terms from David A. Corneth and Amiram Eldar, Jan 15 2021
STATUS
approved