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

1, 17, 256, 289, 809, 1792, 2329, 4352, 4913, 7055, 8704, 13285, 24565, 39509, 43520, 58880, 83521, 95744, 147968, 175616, 197120, 250563, 304640, 478720, 548029, 670208, 739840, 751689, 1000960, 1035776, 1192448, 1379840, 1419857

Offset

1,2

Links

Table of n, a(n) for n=1..33.

Mathematica

b = 17; c = {}; Select[Range[10^4], 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: A201302 A217453 A015675 * A098302 A090457 A342481

Adjacent sequences: A029459 A029460 A029461 * A029463 A029464 A029465

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from David W. Wilson

Status

approved