[go: up one dir, main page]

login
A029456
Numbers k that divide the (right) concatenation of all numbers <= k written in base 11 (most significant digit on left).
1
1, 5, 11, 20, 25, 44, 55, 100, 121, 220, 275, 281, 484, 508, 605, 748, 1012, 1100, 1331, 1496, 1573, 1595, 1768, 2200, 3016, 3025, 3400, 4825, 4840, 6655, 7480, 9320, 9515, 10648, 11320, 12760, 14641, 15125, 15400, 15507, 16335, 16456, 17000, 17215
OFFSET
1,2
LINKS
MATHEMATICA
b = 11; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
EXTENSIONS
More terms from David W. Wilson
STATUS
approved