|
%I #16 Jul 04 2021 01:57:20
%S 1,3,9,24,27,40,45,65,72,85,120,135,153,216,221,333,360,440,501,543,
%T 648,1080,1240,1320,2456,2493,3240,3720,3960,4887,5169,5427,6309,6504,
%U 6981,7440,9360,10320,11583,12555,14391,16848,18135,18255,22320,28080,28183,28629,37360,38313,51795,52545,54405,59985,66960,84240,89415,96720,101520,118989,152784,925520,3899205,4756545,6259240,9604872,13659624,14446344,17753256,17784920,18694341,19484440,20518065,21377495,23876424,31787080,36603495,60454107,80052861,95747177,98872632
%N Numbers k that divide the (left) concatenation of all numbers <= k written in base 19 (most significant digit on left).
%t b = 19; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[#, b], c], b], #] &] (* _Robert Price_, Mar 12 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 Andrew Gacek (andrew(AT)dgi.net), Feb 21 2000
%E More terms from Larry Reeves (larryr(AT)acm.org), May 24 2001
%E 35 more terms from _Max Alekseyev_, May 16 2011
|
