A029508 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, 32, 77, 93, 96, 160, 224, 352, 889, 941, 2275, 3421, 10368, 23744, 31104, 40832, 168111, 303296, 3496928, 6149591, 8275552, 8333395, 9774432
Offset: 1
Examples
See A029495 for example.
Crossrefs
Programs
-
Mathematica
b = 15; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *) -
PARI
lista(nn, m=15) = my(s, t); for(k=1, nn, s=k; 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
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), Jun 01 2001
a(22)-a(26) from Lars Blomberg, Oct 08 2011
Comments