This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A136490 #15 Apr 04 2024 15:38:06 %S A136490 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 A136490 34,36,39,40,41,48,56,58,60,62,63,64,65,66,68,72,80,91,96,99,111,112, %U A136490 115,116,120,124,126,127,128,129,130,132,136,144,160,192,222,224,230,232 %N A136490 Numbers whose binary representation is contained in that of their cubes. %C A136490 Complement of A136491. %C A136490 A136510(a(n)) <= 3 for n>0. - _Reinhard Zumkeller_, Jan 03 2008 %t A136490 Select[Range[0, 300], StringContainsQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* _Paolo Xausa_, Apr 04 2024 *) %o A136490 (Python) %o A136490 def ok(n): return bin(n)[2:] in bin(n**3)[2:] %o A136490 print([k for k in range(250) if ok(k)]) # _Michael S. Branicky_, Apr 04 2024 %Y A136490 Cf. A018826 (squares), A029942 (base 10), A136491, A136510. %K A136490 nonn,base %O A136490 1,3 %A A136490 _Reinhard Zumkeller_, Jan 01 2008 %E A136490 More terms from _Reinhard Zumkeller_, Jan 03 2008