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

1, 3, 9, 19, 27, 36, 47, 51, 57, 76, 83, 108, 156, 171, 228, 279, 323, 361, 405, 475, 492, 513, 675, 684, 855, 1083, 1349, 1412, 1425, 1444, 1539, 1805, 2025, 2052, 2565, 2812, 3249, 4275, 4332, 4775, 5415, 6156, 6859, 8664, 9747, 9848, 10469, 12312

Offset

1,2

Links

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

Mathematica

b = 19; 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: A068677 A069832 A057257 * A029479 A215803 A014869

Adjacent sequences: A029461 A029462 A029463 * A029465 A029466 A029467

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from David W. Wilson

Status

approved