The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #12 Jul 04 2021 01:58:08
%S 1,11,23,44,92,121,253,484,529,644,847,1012,1228,1771,2116,2492,2783,
%T 3388,3703,5819,7084,11132,12167,18227,22264,28072,34936,38456,46552,
%U 64009,97336,133837,155848,168751,223208,231173,232553,279841,326117
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 23 (most significant digit on left).
%t b = 23; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* _Robert Price_, Mar 11 2020 *)
%Y Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.
%K nonn,base
%O 1,2
%A _Olivier Gérard_
%E More terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001