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