A029486 Numbers k that divide the (left) concatenation of all numbers <= k written in base 17 (most significant digit on left).
1, 111, 269, 512, 1536, 4499, 4608, 7401, 9216, 23552, 420864, 492544, 3635712, 7943997, 8175681, 11616768, 12344832, 20399616, 49798656, 77196800, 91584000, 162777600, 210598400, 261962240, 305856000, 379123200, 1484144097, 3318331392, 8416131072
Offset: 1
Crossrefs
Programs
-
Mathematica
b = 17; 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), Jan 14 2002
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(13)-a(21) from Max Alekseyev, May 15 2011
a(22)-a(29) from Jason Yuen, Jun 29 2024
Comments