|
%I #15 Jul 04 2021 01:59:06
%S 1,5,11,20,25,44,55,100,121,220,275,281,484,508,605,748,1012,1100,
%T 1331,1496,1573,1595,1768,2200,3016,3025,3400,4825,4840,6655,7480,
%U 9320,9515,10648,11320,12760,14641,15125,15400,15507,16335,16456,17000,17215
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 11 (most significant digit on left).
%H Robert Price, <a href="/A029456/b029456.txt">Table of n, a(n) for n = 1..84</a>
%t b = 11; 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_
%E More terms from _David W. Wilson_
|
