|
%I #17 Jul 04 2021 01:59:44
%S 1,17,256,289,809,1792,2329,4352,4913,7055,8704,13285,24565,39509,
%T 43520,58880,83521,95744,147968,175616,197120,250563,304640,478720,
%U 548029,670208,739840,751689,1000960,1035776,1192448,1379840,1419857
%N Numbers k that divide the (right) concatenation of all numbers <= k written in base 17 (most significant digit on left).
%t b = 17; c = {}; Select[Range[10^4], 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_
|
