login
A029451
Numbers k that divide the (right) concatenation of all numbers <= k written in base 6 (most significant digit on left).
1
1, 2, 3, 5, 6, 9, 10, 12, 15, 18, 20, 22, 25, 30, 36, 40, 45, 50, 54, 60, 68, 72, 75, 90, 100, 103, 108, 116, 120, 132, 135, 150, 180, 200, 216, 225, 226, 240, 252, 270, 274, 280, 285, 300, 308, 315, 324, 336, 350, 360, 378, 400, 405, 420, 432, 450, 456, 504
OFFSET
1,2
LINKS
MATHEMATICA
b = 6; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
STATUS
approved