OFFSET
1,1
MATHEMATICA
Select[Range[0, 150], StringFreeQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* Paolo Xausa, Apr 05 2024 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Reinhard Zumkeller, Jan 01 2008
STATUS
approved