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

1, 2, 6, 7, 10, 13, 14, 18, 19, 21, 26, 28, 36, 39, 42, 49, 52, 63, 69, 78, 84, 91, 98, 102, 117, 126, 147, 156, 169, 182, 196, 273, 308, 338, 343, 363, 364, 392, 507, 637, 676, 686, 728, 952, 968, 1029, 1078, 1183, 1274, 1352, 1372, 1573, 1768, 1898, 1911

Offset

1,2

Links

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

Mathematica

b = 14; 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: A346123 A030309 A074223 * A014862 A180626 A061943

Adjacent sequences: A029456 A029457 A029458 * A029460 A029461 A029462

Keyword

nonn,base

Author

Olivier Gérard

Status

approved