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,2

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A356591 A029460 A277910 * A014872 A018501 A014865

Adjacent sequences: A029463 A029464 A029465 * A029467 A029468 A029469

Keyword

nonn,base

Author

Olivier Gérard

Status

approved