[go: up one dir, main page]

login
A029490
Numbers k that divide the (left) concatenation of all numbers <= k written in base 21 (most significant digit on left).
1
1, 5, 25, 43, 55, 128, 275, 1280, 2816, 5888, 6400, 12800, 28160, 33413, 37376, 129919, 140800, 286025, 352000, 990845, 1050880, 1773725, 2848000, 3581033, 4343680, 4428160, 5624960, 6732160, 7553920, 8497280, 9249995, 9872000, 10938752, 11426176, 14558575, 14569600, 15368320, 18998705, 19312000, 21362275, 24208000, 24934855, 27632000, 32432000, 37022605, 43193216, 51382265, 53717375, 81016375
OFFSET
1,2
COMMENTS
a(62) > 3*10^10. - Jason Yuen, Jun 29 2024
MATHEMATICA
b = 21; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[#, b], c], b], #] &] (* Robert Price, Mar 12 2020 *)
KEYWORD
nonn,base
EXTENSIONS
More terms from Andrew Gacek (andrew(AT)dgi.net), Feb 21 2000
More terms from Larry Reeves (larryr(AT)acm.org), May 24 2001
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(20)-a(49) from Max Alekseyev, May 15 2011
STATUS
approved