|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|