login
When expressed in base 2 and then interpreted in base 9, is a multiple of the original number.
14

%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