The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #15 Apr 04 2024 15:38:06
%S 0,1,2,3,4,5,6,7,8,9,10,12,14,15,16,17,18,20,23,24,28,29,30,31,32,33,
%T 34,36,39,40,41,48,56,58,60,62,63,64,65,66,68,72,80,91,96,99,111,112,
%U 115,116,120,124,126,127,128,129,130,132,136,144,160,192,222,224,230,232
%N Numbers whose binary representation is contained in that of their cubes.
%C Complement of A136491.
%C A136510(a(n)) <= 3 for n>0. - _Reinhard Zumkeller_, Jan 03 2008
%t Select[Range[0, 300], StringContainsQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* _Paolo Xausa_, Apr 04 2024 *)
%o (Python)
%o def ok(n): return bin(n)[2:] in bin(n**3)[2:]
%o print([k for k in range(250) if ok(k)]) # _Michael S. Branicky_, Apr 04 2024
%Y Cf. A018826 (squares), A029942 (base 10), A136491, A136510.
%K nonn,base
%O 1,3
%A _Reinhard Zumkeller_, Jan 01 2008
%E More terms from _Reinhard Zumkeller_, Jan 03 2008