login
A029449
Numbers k that divide the (right) concatenation of all numbers <= k written in base 4 (most significant digit on left).
1
1, 2, 3, 4, 6, 8, 12, 14, 16, 18, 21, 24, 26, 28, 32, 36, 42, 48, 52, 56, 58, 63, 64, 72, 84, 96, 108, 126, 128, 144, 147, 168, 189, 192, 216, 252, 256, 276, 328, 362, 384, 456, 492, 512, 656, 768, 896, 904, 984, 1024, 1116, 1152, 1211, 1251, 1344, 1536, 1736
OFFSET
1,2
LINKS
MATHEMATICA
b = 4; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)
KEYWORD
nonn,base
STATUS
approved