login
A029461
Numbers k that divide the (right) concatenation of all numbers <= k written in base 16 (most significant digit on left).
1
1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 20, 24, 25, 30, 32, 40, 48, 50, 60, 64, 75, 80, 83, 96, 100, 120, 122, 124, 128, 150, 160, 192, 200, 240, 256, 270, 285, 288, 300, 320, 342, 360, 384, 397, 400, 432, 450, 456, 474, 480, 512, 513, 540, 552, 570, 576, 600
OFFSET
1,2
LINKS
MATHEMATICA
b = 16; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
STATUS
approved