OFFSET
1,2
COMMENTS
Equivalently, for n > 1, a(n) is the least multiple m > a(n-1) of lcm{d_i} where the d_i are the nonzero decimal digits of a(n-1).
PROG
(PARI) lista(nn) = {last = 1; print1(last, ", "); for (n=2, nn, lcmd = lcm(select(x->(x!=0), digits(last))); new = lcmd; while (new <= last, new += lcmd); print1(new, ", "); last = new; ); } \\ Michel Marcus, Mar 13 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Rick L. Shepherd, Jan 07 2009
STATUS
approved