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

1, 2, 3, 5, 6, 9, 10, 12, 15, 18, 20, 22, 25, 30, 36, 40, 45, 50, 54, 60, 68, 72, 75, 90, 100, 103, 108, 116, 120, 132, 135, 150, 180, 200, 216, 225, 226, 240, 252, 270, 274, 280, 285, 300, 308, 315, 324, 336, 350, 360, 378, 400, 405, 420, 432, 450, 456, 504

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A007092.

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

Sequence in context: A047331 A288480 A344633 * A029455 A234718 A341158

Adjacent sequences: A029448 A029449 A029450 * A029452 A029453 A029454

Keyword

nonn,base

Author

Olivier Gérard

Status

approved