%I #13 Mar 13 2020 12:52:56
%S 1,3,9,23,24,27,40,45,72,120,135,141,145,161,243,360,520,801,1272,
%T 1279,1512,2568,2681,3921,4584,7155,8704,12389,22405,27649,32640,
%U 34720,40455,62755,65568,89163,120240,125671,144144,193680,204080,241200
%N Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 19 (most significant digit on right).
%C This sequence differs from A061948 in that all least significant zeros are kept during concatenation.
%H Lars Blomberg, <a href="/A029512/b029512.txt">Table of n, a(n) for a(n) < 10^7</a>
%e See A029495 for example.
%t b = 19; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* _Robert Price_, Mar 13 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 Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001
|