Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A061954
Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 25 (most significant digit on right).
142
1, 3, 5, 9, 15, 21, 96, 99, 259, 1317, 2112, 52711, 72483, 124069, 633696, 651632, 2391984, 4317312, 8101536, 8344672
OFFSET
1,2
COMMENTS
This sequence differs from A029518 in that all least significant zeros are removed before concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 26 2011]
EXAMPLE
See A061931 for example.
MATHEMATICA
b = 25; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[IntegerReverse[#, b], b]], b], #] &] (* Robert Price, Mar 08 2020 *)
KEYWORD
nonn,base,more
AUTHOR
Larry Reeves (larryr(AT)acm.org), May 24 2001
EXTENSIONS
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(15)-a(20) from Lars Blomberg, Oct 26 2011
STATUS
approved