A136490 Numbers whose binary representation is contained in that of their cubes.

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, 34, 36, 39, 40, 41, 48, 56, 58, 60, 62, 63, 64, 65, 66, 68, 72, 80, 91, 96, 99, 111, 112, 115, 116, 120, 124, 126, 127, 128, 129, 130, 132, 136, 144, 160, 192, 222, 224, 230, 232

Offset

1,3

Comments

Complement of A136491.

A136510(a(n)) <= 3 for n>0. - Reinhard Zumkeller, Jan 03 2008

Links

Table of n, a(n) for n=1..66.

Mathematica

Select[Range[0, 300], StringContainsQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* Paolo Xausa, Apr 04 2024 *)

Prog

(Python)
def ok(n): return bin(n)[2:] in bin(n**3)[2:]
print([k for k in range(250) if ok(k)]) # Michael S. Branicky, Apr 04 2024

Crossrefs

Cf. A018826 (squares), A029942 (base 10), A136491, A136510.

Sequence in context: A125121 A333762 A295235 * A129523 A243463 A247805

Adjacent sequences: A136487 A136488 A136489 * A136491 A136492 A136493

Keyword

nonn,base

Author

Reinhard Zumkeller, Jan 01 2008

Extensions

More terms from Reinhard Zumkeller, Jan 03 2008

Status

approved