login
A154362
a(1) = 1; for n > 1, a(n) is the least number m > a(n-1) where m is a multiple of each nonzero decimal digit of a(n-1).
0
1, 2, 4, 8, 16, 18, 24, 28, 32, 36, 42, 44, 48, 56, 60, 66, 72, 84, 88, 96, 108, 112, 114, 116, 120, 122, 124, 128, 136, 138, 144, 148, 152, 160, 162, 168, 192, 198, 216, 222, 224, 228, 232, 234, 240, 244, 248, 256, 270, 280, 288, 296, 306, 312, 318, 336, 342
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
Sequence in context: A216781 A127066 A331382 * A226221 A072462 A369951
KEYWORD
base,easy,nonn
AUTHOR
Rick L. Shepherd, Jan 07 2009
STATUS
approved