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

1, 5, 16, 23, 25, 35, 80, 125, 160, 205, 352, 625, 800, 1120, 1875, 2221, 3125, 6000, 9375, 10000, 11120, 15625, 19184, 21875, 30000, 50000, 55135, 58775, 66800, 71875, 78125, 88000, 88385, 171875, 200000, 390625, 472000, 715189, 734375

Offset

1,2

Links

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

Mathematica

b = 5; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 10 2020 *)

Crossrefs

Cf. A007091.

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Sequence in context: A041107 A042603 A031120 * A225539 A299124 A278415

Adjacent sequences: A029447 A029448 A029449 * A029451 A029452 A029453

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from David W. Wilson

Status

approved