OFFSET
1,3
EXAMPLE
7 in base 2 is 111, which interpreted in base 9 is 91 = 13*7.
MATHEMATICA
Select[Range[10000], Divisible[FromDigits[IntegerDigits[#, 2], 9], #]&] (* Harvey P. Dale, Jan 04 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Erich Friedman, Jul 21 2001
EXTENSIONS
Extended by Harvey P. Dale, Jan 04 2011
Offset changed to 1 by Georg Fischer, Mar 03 2023
STATUS
approved