A061944 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 15 (most significant digit on right).
1, 3, 5, 7, 28, 48, 143, 148, 224, 392, 2079, 2716, 2999, 12537, 14392, 16384, 32124, 52073, 56747, 138203, 238847, 527989, 4580376, 5147667, 5276712, 6982808, 8947484
Offset: 1
Examples
See A061931 for example.
Crossrefs
Programs
-
Mathematica
b = 15; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[IntegerReverse[#, b], b]], b], #] &] (* Robert Price, Mar 08 2020 *) -
PARI
lista(nn, m=15) = my(s, t); for(k=1, nn, s=k/m^valuation(k, m); while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 2020
Extensions
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25 2002
a(23)-a(27) from Lars Blomberg, Oct 22 2011
Comments