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

Offset

1,2

Links

Table of n, a(n) for n=1..39.

Mathematica

b = 23; c = {}; Select[Range[10^4], 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: 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

Status

approved