login
A029457
Numbers k that divide the (right) concatenation of all numbers <= k written in base 12 (most significant digit on left).
1
1, 2, 3, 4, 6, 11, 12, 15, 16, 18, 22, 24, 29, 33, 36, 44, 45, 48, 55, 66, 72, 87, 88, 99, 121, 132, 144, 154, 168, 176, 192, 198, 216, 224, 242, 252, 258, 264, 288, 297, 308, 336, 352, 363, 369, 378, 396, 432, 448, 462, 484, 504, 528, 561, 576, 594, 616, 672
OFFSET
1,2
LINKS
MATHEMATICA
b = 12; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
STATUS
approved