A029504 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 11 (most significant digit on right).
1, 5, 15, 24, 40, 69, 72, 75, 120, 167, 216, 280, 360, 536, 1192, 1240, 1360, 11280, 25195, 33216, 33984, 101328, 221640, 400479, 531000, 537640, 600104, 631155, 743085, 958785, 2660431, 2777800
Offset: 1
Examples
See A029495 for example.
Crossrefs
Programs
-
Mathematica
b = 11; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 2020 *)
Extensions
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002
a(27)-a(32) from Lars Blomberg, Oct 06 2011
Comments