login
A029453
Numbers k that divide the (right) concatenation of all numbers <= k written in base 8 (most significant digit on left).
1
1, 2, 4, 6, 7, 8, 12, 13, 14, 15, 16, 21, 24, 28, 32, 35, 39, 42, 48, 49, 56, 64, 70, 98, 106, 112, 128, 147, 164, 196, 224, 231, 256, 289, 392, 448, 490, 512, 545, 560, 608, 640, 665, 688, 784, 872, 889, 896, 980, 1024, 1064, 1120, 1280, 1520, 1526, 1568
OFFSET
1,2
LINKS
MATHEMATICA
b = 8; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
STATUS
approved