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

1, 2, 3, 6, 9, 17, 18, 27, 34, 36, 44, 51, 54, 68, 81, 99, 102, 108, 153, 162, 204, 289, 306, 324, 340, 360, 408, 442, 459, 486, 536, 540, 578, 612, 648, 680, 702, 729, 867, 908, 918, 972, 1020, 1080, 1156, 1224, 1326, 1377, 1458, 1620, 1683, 1734, 1836

Offset

1,2

Links

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

Mathematica

b = 18; 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: A068604 A174023 A014868 * A018721 A018384 A282842

Adjacent sequences: A029460 A029461 A029462 * A029464 A029465 A029466

Keyword

nonn,base

Author

Olivier Gérard

Status

approved