OFFSET
1,3
EXAMPLE
8 in base 3 is 22, which interpreted in base 7 is 16 = 2*8.
MATHEMATICA
Join[{0}, Select[Range[100000], Divisible[FromDigits[IntegerDigits[#, 3], 7], #]&]] (* Harvey P. Dale, Jul 06 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
Offset changed to 1 by Georg Fischer, Mar 03 2023
More terms from Amiram Eldar, Mar 03 2023
STATUS
approved