A029485 Numbers k that divide the (left) concatenation of all numbers <= k written in base 16 (most significant digit on left).
1, 3, 5, 9, 15, 25, 75, 257, 321, 435, 795, 1285, 2313, 8523, 39759, 60855, 91209, 247875, 251385, 2695341, 5095725, 9529505, 12179807, 12341125, 57965805, 1380206235, 15616692345, 22548618825, 26313971049
Offset: 1
Examples
For k=3, we have 321_16 which is 801, and 801 = 3*267.
Crossrefs
Programs
-
Mathematica
b = 16; 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), Aug 27 2001
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(20)-a(25) from Max Alekseyev, May 15 2011
a(26)-a(29) from Jason Yuen, Jun 29 2024
Comments