OFFSET
1,3
COMMENTS
PROG
(PARI) is(n)={vecsort(n=digits(n))==n && normlp(n, 1)<=prod(i=1, #n, n[i])}
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Oct 29 2014
STATUS
approved