A136491 Complement of A136490.
11, 13, 19, 21, 22, 25, 26, 27, 35, 37, 38, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 57, 59, 61, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 92, 93, 94, 95, 97, 98, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110
Offset: 1
Programs
-
Mathematica
Select[Range[0, 150], StringFreeQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* Paolo Xausa, Apr 05 2024 *)