%I #14 Jul 04 2021 02:00:11

%S 1,2,3,4,6,8,12,14,16,18,21,24,26,28,32,36,42,48,52,56,58,63,64,72,84,

%T 96,108,126,128,144,147,168,189,192,216,252,256,276,328,362,384,456,

%U 492,512,656,768,896,904,984,1024,1116,1152,1211,1251,1344,1536,1736

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

%H Robert Price, <a href="/A029449/b029449.txt">Table of n, a(n) for n = 1..134</a>

%t b = 4; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* _Robert Price_, Mar 10 2020 *)

%Y Cf. A007090.

%Y Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

%K nonn,base

%O 1,2

%A _Olivier Gérard_