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

1, 2, 3, 4, 6, 11, 12, 15, 16, 18, 22, 24, 29, 33, 36, 44, 45, 48, 55, 66, 72, 87, 88, 99, 121, 132, 144, 154, 168, 176, 192, 198, 216, 224, 242, 252, 258, 264, 288, 297, 308, 336, 352, 363, 369, 378, 396, 432, 448, 462, 484, 504, 528, 561, 576, 594, 616, 672

Offset

1,2

Links

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

Mathematica

b = 12; 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: A304872 A255921 A111338 * A358788 A014859 A084166

Adjacent sequences: A029454 A029455 A029456 * A029458 A029459 A029460

Keyword

nonn,base

Author

Olivier Gérard

Status

approved