A029466 Numbers k that divide the (right) concatenation of all numbers <= k written in base 21 (most significant digit on left).

1, 3, 5, 7, 15, 21, 25, 35, 45, 48, 49, 63, 75, 79, 80, 105, 112, 144, 147, 175, 203, 225, 240, 245, 295, 315, 327, 336, 369, 400, 441, 525, 560, 675, 720, 735, 784, 805, 945, 1008, 1029, 1113, 1200, 1225, 1267, 1323, 1392, 1575, 1680, 1715, 1953, 2043

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base

Links

• Robert Price, Table of n, a(n) for n = 1..137

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

Mathematica

b = 21; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)