login
A029476
Numbers k that divide the (left) concatenation of all numbers <= k written in base 7 (most significant digit on left).
1
1, 3, 15, 16, 29, 48, 75, 144, 477, 6211, 16053, 32688, 40431, 66313, 129825, 134224, 278064, 366064, 386863, 3157824, 4446069, 6697664, 8354233, 28775616, 33559488, 34107072, 38339136, 50059629, 50280080, 71693520, 113603184, 220308720, 247082832, 2637755936
OFFSET
1,2
COMMENTS
a(40) > 3*10^10. - Jason Yuen, May 14 2024
EXAMPLE
15 is a term: 212016151413121110654321_7 = 59785983230307066720 = 15 * 3985732215353804448.
MATHEMATICA
b = 7; 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 6211 from Andrew Gacek (andrew(AT)dgi.net), Feb 20 2000
More terms from Larry Reeves (larryr(AT)acm.org), Sep 29 2001
Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
a(20)-a(30) from Max Alekseyev, May 13 2011
STATUS
approved