A029451 - OEIS

%I #15 Jul 04 2021 02:00:03

%S 1,2,3,5,6,9,10,12,15,18,20,22,25,30,36,40,45,50,54,60,68,72,75,90,

%T 100,103,108,116,120,132,135,150,180,200,216,225,226,240,252,270,274,

%U 280,285,300,308,315,324,336,350,360,378,400,405,420,432,450,456,504

%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 6 (most significant digit on left).

%H Robert Price, <a href="/A029451/b029451.txt">Table of n, a(n) for n = 1..251</a>

%t b = 6; c = {}; Select[Range[10^5], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* _Robert Price_, Mar 11 2020 *)

%Y Cf. A007092.

%Y Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

%K nonn,base

%O 1,2

%A _Olivier Gérard_