login
Complement of A136490.
2

%I #8 Apr 05 2024 08:19:41

%S 11,13,19,21,22,25,26,27,35,37,38,42,43,44,45,46,47,49,50,51,52,53,54,

%T 55,57,59,61,67,69,70,71,73,74,75,76,77,78,79,81,82,83,84,85,86,87,88,

%U 89,90,92,93,94,95,97,98,100,101,102,103,104,105,106,107,108,109,110

%N Complement of A136490.

%t Select[Range[0, 150], StringFreeQ[IntegerString[#^3, 2], IntegerString[#, 2]] &] (* _Paolo Xausa_, Apr 05 2024 *)

%Y Cf. A136490, A136492.

%K nonn,easy,base

%O 1,1

%A _Reinhard Zumkeller_, Jan 01 2008