|
%I #15 Sep 03 2015 19:02:23
%S 0,1,2,3,4,5,6,8,9,10,12,15,16,17,18,20,24,27,30,31,32,33,34,36,40,45,
%T 48,51,54,60,62,64,65,66,68,72,80,85,90,93,96,99,102,108,120,124,127,
%U 128,129,130,132,135,136,144,153,160,165,170,180,186,192,195,198,204
%N When expressed in base 2 and then interpreted in base 8, is a multiple of the original number.
%H Ivan Neretin, <a href="/A062849/b062849.txt">Table of n, a(n) for n = 1..1775</a> (all terms below 10^6)
%e 15 in base 2 is 1111, which interpreted in base 8 is 585=39*15.
%t Join[{0}, Select[Range@210, Divisible[FromDigits[IntegerDigits[#, 2], 8], #] &]] (* _Ivan Neretin_, Aug 31 2015 *)
%K base,nonn
%O 1,3
%A _Erich Friedman_, Jul 21 2001
|
