A029456 Numbers k that divide the (right) concatenation of all numbers <= k written in base 11 (most significant digit on left).
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
Links
- Robert Price, Table of n, a(n) for n = 1..84
Crossrefs
Programs
-
Mathematica
b = 11; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
Extensions
More terms from David W. Wilson