Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A029454
Numbers k that divide the (right) concatenation of all numbers <= k written in base 9 (most significant digit on left).
0
1, 3, 9, 27, 33, 47, 51, 64, 81, 97, 135, 153, 192, 243, 405, 576, 729, 933, 1152, 2187, 3456, 6561, 9099, 10368, 19683, 27008, 31104, 59049, 72981, 91584, 108864, 111537, 126021, 137781, 139968, 177147, 260253, 326592, 413343, 419904, 438543
OFFSET
1,2
MATHEMATICA
b = 9; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, IntegerDigits[#, b]], b], #] &] (* Robert Price, Mar 11 2020 *)
KEYWORD
nonn,base
EXTENSIONS
More terms from David W. Wilson
STATUS
approved