A029534 Numbers n such that n divides the (left) concatenation of all numbers <= n written in base 17 (most significant digit on right and removing all least significant zeros before concatenation).
1, 32, 175, 1216, 1248, 1568, 2400, 4384, 18555, 39328, 68704, 560159
Offset: 1
Examples
See A029519 for example.
Crossrefs
Programs
-
Mathematica
b = 17; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[IntegerReverse[#, b], b], c], b], #] &] (* Robert Price, Mar 13 2020 *)
Extensions
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002
Comments