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, 1474816, 1553664, 1593557, 1753941

Offset

1,2

Links

Michael S. Branicky, Table of n, a(n) for n = 1..81

Mathematica

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

Prog

(Python)
def ok(k): return concat_mod(17, k, k) == 0  # uses concat_mod by Jason Yuen in A029455
print([k for k in range(1, 10**5) if ok(k)]) # Michael S. Branicky, Apr 29 2026

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

a(34)-a(37) from Jinyuan Wang, May 03 2025

Status

approved