%I #17 Mar 03 2023 13:11:38
%S 0,1,6,7,17,18,30,34,49,60,90,102,108,119,126,180,203,204,210,238,269,
%T 306,420,510,538,540,612,630,882,1020,1050,1076,1314,1530,1638,2040,
%U 2100,2628,2711,3060,3281,3570,3996,4410,4573,6120,6562,7097,7140,7884,7992,8100,8190,9146,9180,9720
%N When expressed in base 2 and then interpreted in base 9, is a multiple of the original number.
%e 7 in base 2 is 111, which interpreted in base 9 is 91 = 13*7.
%t Select[Range[10000], Divisible[FromDigits[IntegerDigits[#,2], 9], #]&] (* _Harvey P. Dale_, Jan 04 2011 *)
%K base,nonn
%O 1,3
%A _Erich Friedman_, Jul 21 2001
%E Extended by _Harvey P. Dale_, Jan 04 2011
%E Offset changed to 1 by _Georg Fischer_, Mar 03 2023