|
%I #12 Jul 04 2021 01:58:05
%S 1,2,3,6,7,9,11,14,18,21,22,28,30,33,42,44,49,60,66,70,77,84,98,110,
%T 119,121,132,140,147,154,196,201,210,220,222,231,242,294,308,330,356,
%U 363,386,420,462,484,504,511,522,539,561,588,605,616,627,693,726,792
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 22 (most significant digit on left).
%H Robert Price, <a href="/A029467/b029467.txt">Table of n, a(n) for n = 1..219</a>
%t b = 22; 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_
|
