OFFSET
1,2
COMMENTS
The initial portion of this sequence (up to the 6917th term) is equal to A071153 (Łukasiewicz words for rooted plane trees) sorted in ascending order.
LINKS
PROG
(PARI) isok(n) = {my(s = 0); my(d = digits(n)); for (k=1, #d, s += d[k]-1; if (s<0, return (0)); ); if (s, 0, 1); } \\ Michel Marcus, Oct 16 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, May 14 2002
STATUS
approved