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

1, 3, 9, 13, 15, 16, 39, 48, 65, 169, 208, 240, 377, 400, 507, 603, 624, 720, 1040, 1168, 1200, 1287, 1521, 1833, 1872, 2197, 2592, 2784, 3393, 3744, 4563, 5211, 5408, 6591, 7989, 8299, 11232, 13689, 16224, 16992, 18477, 19643, 19773, 24352, 28561, 37349

Offset

1,2

Links

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

Mathematica

b = 13; 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: A262539 A101537 A070353 * A050571 A234286 A193927

Adjacent sequences: A029455 A029456 A029457 * A029459 A029460 A029461

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from David W. Wilson

Status

approved