OFFSET
1,2
COMMENTS
No other terms below 3*10^10.
MATHEMATICA
b = 24; 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
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25 2002
a(19)-a(23) from Max Alekseyev, May 15 2011
a(24)-a(25) from Jason Yuen, Jun 30 2024
STATUS
approved