A062850 When expressed in base 2 and then interpreted in base 9, is a multiple of the original number.
0, 1, 6, 7, 17, 18, 30, 34, 49, 60, 90, 102, 108, 119, 126, 180, 203, 204, 210, 238, 269, 306, 420, 510, 538, 540, 612, 630, 882, 1020, 1050, 1076, 1314, 1530, 1638, 2040, 2100, 2628, 2711, 3060, 3281, 3570, 3996, 4410, 4573, 6120, 6562, 7097, 7140, 7884, 7992, 8100, 8190, 9146, 9180, 9720
Offset: 1
Examples
7 in base 2 is 111, which interpreted in base 9 is 91 = 13*7.
Programs
-
Mathematica
Select[Range[10000], Divisible[FromDigits[IntegerDigits[#,2], 9], #]&] (* Harvey P. Dale, Jan 04 2011 *)
Extensions
Extended by Harvey P. Dale, Jan 04 2011
Offset changed to 1 by Georg Fischer, Mar 03 2023