login
A029450
Numbers k that divide the (right) concatenation of all numbers <= k written in base 5 (most significant digit on left).
0
1, 5, 16, 23, 25, 35, 80, 125, 160, 205, 352, 625, 800, 1120, 1875, 2221, 3125, 6000, 9375, 10000, 11120, 15625, 19184, 21875, 30000, 50000, 55135, 58775, 66800, 71875, 78125, 88000, 88385, 171875, 200000, 390625, 472000, 715189, 734375
OFFSET
1,2
MATHEMATICA
b = 5; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)
KEYWORD
nonn,base
EXTENSIONS
More terms from David W. Wilson
STATUS
approved