A029488 Numbers k that divide the (left) concatenation of all numbers <= k written in base 19 (most significant digit on left).

1, 3, 9, 24, 27, 40, 45, 65, 72, 85, 120, 135, 153, 216, 221, 333, 360, 440, 501, 543, 648, 1080, 1240, 1320, 2456, 2493, 3240, 3720, 3960, 4887, 5169, 5427, 6309, 6504, 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

Offset: 1

Author

Olivier Gérard

Keywords

• nonn
• base

Comments

a(102) > 3*10^10. - Jason Yuen, Jun 29 2024

Links

• Jason Yuen, Table of n, a(n) for n = 1..101

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

Mathematica

b = 19; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[#, b], c], b], #] &] (* Robert Price, Mar 12 2020 *)

Extensions

More terms from Andrew Gacek (andrew(AT)dgi.net), Feb 21 2000

More terms from Larry Reeves (larryr(AT)acm.org), May 24 2001

a(47)-a(81) from Max Alekseyev, May 16 2011