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

%I #15 Jul 04 2021 01:59:13

%S 1,3,9,13,15,16,39,48,65,169,208,240,377,400,507,603,624,720,1040,

%T 1168,1200,1287,1521,1833,1872,2197,2592,2784,3393,3744,4563,5211,

%U 5408,6591,7989,8299,11232,13689,16224,16992,18477,19643,19773,24352,28561,37349

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

%H Robert Price, <a href="/A029458/b029458.txt">Table of n, a(n) for n = 1..49</a>

%t b = 13; 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_