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

1, 2, 3, 4, 6, 8, 10, 12, 20, 23, 24, 32, 36, 46, 48, 62, 64, 69, 72, 86, 92, 96, 107, 138, 144, 174, 184, 192, 207, 246, 276, 288, 304, 368, 414, 529, 552, 576, 621, 736, 739, 759, 768, 828, 864, 947, 1044, 1058, 1104, 1136, 1152, 1224, 1242, 1472, 1536

Offset

1,2

Links

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

Mathematica

b = 24; 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: A217660 A275581 A014875 * A061953 A029517 A177907

Adjacent sequences: A029466 A029467 A029468 * A029470 A029471 A029472

Keyword

nonn,base

Author

Olivier Gérard

Status

approved