OFFSET
1,2
COMMENTS
No other terms below 3*10^10.
MATHEMATICA
b = 12; 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
2311 from Andrew Gacek (andrew(AT)dgi.net), Feb 20 2000
a(14) from Larry Reeves (larryr(AT)acm.org), Jan 16 2002
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(15)-a(17) from Max Alekseyev, May 16 2011
a(18)-a(20) from Jason Yuen, May 31 2024
STATUS
approved