A029512 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 19 (most significant digit on right).
1, 3, 9, 23, 24, 27, 40, 45, 72, 120, 135, 141, 145, 161, 243, 360, 520, 801, 1272, 1279, 1512, 2568, 2681, 3921, 4584, 7155, 8704, 12389, 22405, 27649, 32640, 34720, 40455, 62755, 65568, 89163, 120240, 125671, 144144, 193680, 204080, 241200, 302160, 437040
Offset: 1
Examples
See A029495 for example.
Links
- Lars Blomberg, Table of n, a(n) for n=1..59 (all terms below 10^7)
Crossrefs
Programs
-
Mathematica
b = 19; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)
Extensions
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001
Comments