A061948 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, 27, 29, 36, 39, 53, 72, 108, 180, 189, 360, 900, 1008, 1885, 1899, 2877, 3120, 4272, 6975, 14319, 16203, 18724, 19959, 24777, 30071, 38376, 84748, 85053, 90843, 108412, 121996, 155556, 327321, 366128, 545949, 727236, 1332360, 1847072, 3090195, 3229872
Offset: 1
Examples
See A061931 for example.
Crossrefs
Programs
-
Mathematica
b = 19; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[IntegerReverse[#, b], b]], b], #] &] (* Robert Price, Mar 08 2020 *)
Extensions
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002
a(40)-a(42) from Lars Blomberg, Oct 23 2011
Comments