OFFSET
1,2
COMMENTS
LINKS
Giovanni Resta, Zuckerman Numbers, Numbers Aplenty.
EXAMPLE
84 is a Niven number as 84/(8+4) = 7, 7/7 = 1 so 7 is a Zuckerman number, and 84 is a term.
108 is a Niven number as 108/(1+0+8) = 12, 12/(1*2) = 6 so 12 is a Zuckerman number, and 108 is a term.
MATHEMATICA
zuckQ[n_] := IntegerQ[n] && (prod = Times @@ IntegerDigits[n]) > 0 && Divisible[n, prod]; Select[Range[10^4], zuckQ[#/Plus @@ IntegerDigits[#]] &] (* Amiram Eldar, Apr 26 2021 *)
PROG
(PARI) isz(n) = my(p=vecprod(digits(n))); p && !(n % p); \\ A007602
isok(n) = my(s=sumdigits(n)); !(n%s) && isz(n/s); \\ Michel Marcus, Apr 26 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Apr 26 2021
EXTENSIONS
More terms from Michel Marcus, Apr 26 2021
STATUS
approved