OFFSET
1,2
MATHEMATICA
b = 3; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from David W. Wilson
STATUS
approved