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

1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 16, 20, 24, 25, 30, 32, 40, 48, 50, 60, 64, 75, 80, 83, 96, 100, 120, 122, 124, 128, 150, 160, 192, 200, 240, 256, 270, 285, 288, 300, 320, 342, 360, 384, 397, 400, 432, 450, 456, 474, 480, 512, 513, 540, 552, 570, 576, 600

Offset

1,2

Links

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

Mathematica

b = 16; 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: A360425 A018609 A243390 * A128168 A232823 A329469

Adjacent sequences: A029458 A029459 A029460 * A029462 A029463 A029464

Keyword

nonn,base

Author

Olivier Gérard

Status

approved