|
%I #12 Jul 04 2021 01:59:10
%S 1,2,3,4,6,11,12,15,16,18,22,24,29,33,36,44,45,48,55,66,72,87,88,99,
%T 121,132,144,154,168,176,192,198,216,224,242,252,258,264,288,297,308,
%U 336,352,363,369,378,396,432,448,462,484,504,528,561,576,594,616,672
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 12 (most significant digit on left).
%H Robert Price, <a href="/A029457/b029457.txt">Table of n, a(n) for n = 1..348</a>
%t b = 12; 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_
|
