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