|
%I #12 Jul 04 2021 01:57:59
%S 1,2,4,5,6,10,12,14,18,19,20,24,25,30,36,38,40,45,48,50,57,58,60,71,
%T 72,74,75,76,80,85,90,95,100,114,120,144,150,152,171,180,190,200,225,
%U 228,240,261,285,300,304,318,342,360,361,380,400,410,475,500,608,703
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 20 (most significant digit on left).
%H Robert Price, <a href="/A029465/b029465.txt">Table of n, a(n) for n = 1..187</a>
%t b = 20; c = {}; Select[Range[10^5], Divisible[FromDigits[
%t 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_
|
