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