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

1, 2, 4, 5, 6, 10, 12, 14, 18, 19, 20, 24, 25, 30, 36, 38, 40, 45, 48, 50, 57, 58, 60, 71, 72, 74, 75, 76, 80, 85, 90, 95, 100, 114, 120, 144, 150, 152, 171, 180, 190, 200, 225, 228, 240, 261, 285, 300, 304, 318, 342, 360, 361, 380, 400, 410, 475, 500, 608, 703

Offset

1,2

Links

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

Mathematica

b = 20; 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: A265349 A047433 A287332 * A014871 A029513 A061949

Adjacent sequences: A029462 A029463 A029464 * A029466 A029467 A029468

Keyword

nonn,base

Author

Olivier Gérard

Status

approved