OFFSET
1,2
LINKS
Robert Price, Table of n, a(n) for n = 1..251
MATHEMATICA
b = 6; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved