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

1, 11, 23, 44, 92, 121, 253, 484, 529, 644, 847, 1012, 1228, 1771, 2116, 2492, 2783, 3388, 3703, 5819, 7084, 11132, 12167, 18227, 22264, 28072, 34936, 38456, 46552, 64009, 97336, 133837, 155848, 168751, 223208, 231173, 232553, 279841, 326117, 401511, 478216, 508024

Offset

1,2

Links

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

Mathematica

b = 23; 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(23, 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: A191235 A146451 A195043 * A198588 A334829 A354589

Adjacent sequences: A029465 A029466 A029467 * A029469 A029470 A029471

Keyword

nonn,base

Author

Olivier Gérard

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001

a(40)-a(42) from Jinyuan Wang, May 03 2025

Status

approved