login
Numbers k that divide the (right) concatenation of all numbers <= k written in base 8 (most significant digit on left).
1

%I #14 Jul 04 2021 01:59:59

%S 1,2,4,6,7,8,12,13,14,15,16,21,24,28,32,35,39,42,48,49,56,64,70,98,

%T 106,112,128,147,164,196,224,231,256,289,392,448,490,512,545,560,608,

%U 640,665,688,784,872,889,896,980,1024,1064,1120,1280,1520,1526,1568

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

%H Robert Price, <a href="/A029453/b029453.txt">Table of n, a(n) for n = 1..98</a>

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

%Y Cf. A007094.

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

%K nonn,base

%O 1,2

%A _Olivier GĂ©rard_