OFFSET
1,2
COMMENTS
EXAMPLE
PROG
(PARI) isA357769(n, base=10) = { my (d=digits(n, base), s=0); for (k=1, #d, if (n % (s+=d[k]), return (0)); ); return (1) }
is(n, base=10) = isA357769(n, base) && (n%base || !isA357769(n/base, base))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott and Rémy Sigrist, Oct 15 2022
STATUS
approved