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

1, 2, 3, 6, 7, 9, 11, 14, 18, 21, 22, 28, 30, 33, 42, 44, 49, 60, 66, 70, 77, 84, 98, 110, 119, 121, 132, 140, 147, 154, 196, 201, 210, 220, 222, 231, 242, 294, 308, 330, 356, 363, 386, 420, 462, 484, 504, 511, 522, 539, 561, 588, 605, 616, 627, 693, 726, 792

Offset

1,2

Links

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

Mathematica

b = 22; 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: A341333 A190199 A014873 * A029515 A061951 A346301

Adjacent sequences: A029464 A029465 A029466 * A029468 A029469 A029470

Keyword

nonn,base

Author

Olivier Gérard

Status

approved