OFFSET
1,2
COMMENTS
No other terms below 3*10^10.
MATHEMATICA
b = 6; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[#, b], c], b], #] &] (* Robert Price, Mar 12 2020 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
EXTENSIONS
Corrected by Andrew Gacek (andrew(AT)dgi.net), Feb 20 2000
Corrected and more terms from Larry Reeves (larryr(AT)acm.org), May 24 2001
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(7)-a(9) from Max Alekseyev, May 13 2011
a(10)-a(13) from Jason Yuen, May 14 2024
STATUS
approved