|
%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_
|
