%I #14 Jul 04 2021 01:59:47
%S 1,2,6,7,10,13,14,18,19,21,26,28,36,39,42,49,52,63,69,78,84,91,98,102,
%T 117,126,147,156,169,182,196,273,308,338,343,363,364,392,507,637,676,
%U 686,728,952,968,1029,1078,1183,1274,1352,1372,1573,1768,1898,1911
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 14 (most significant digit on left).
%H Robert Price, <a href="/A029459/b029459.txt">Table of n, a(n) for n = 1..130</a>
%t b = 14; c = {}; Select[Range[10^5], 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_
|