%I #12 Jul 04 2021 01:57:53
%S 1,2,3,6,9,17,18,27,34,36,44,51,54,68,81,99,102,108,153,162,204,289,
%T 306,324,340,360,408,442,459,486,536,540,578,612,648,680,702,729,867,
%U 908,918,972,1020,1080,1156,1224,1326,1377,1458,1620,1683,1734,1836
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 18 (most significant digit on left).
%H Robert Price, <a href="/A029463/b029463.txt">Table of n, a(n) for n = 1..225</a>
%t b = 18; 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_
|