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

1, 3, 5, 7, 15, 20, 21, 25, 28, 33, 35, 36, 45, 49, 60, 63, 68, 75, 84, 100, 105, 140, 147, 175, 180, 196, 204, 207, 225, 245, 252, 287, 300, 315, 375, 420, 441, 500, 525, 540, 588, 675, 700, 724, 735, 756, 805, 875, 879, 900, 945, 980, 1125, 1225, 1260, 1323

Offset

1,2

Links

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

Mathematica

b = 15; 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: A348441 A391745 A356591 * A277910 A029466 A014872

Adjacent sequences: A029457 A029458 A029459 * A029461 A029462 A029463

Keyword

nonn,base

Author

Olivier Gérard

Status

approved