OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[100], Min[DigitCount[#, 2]]>1&] (* Harvey P. Dale, Mar 09 2013 *)
PROG
(Python)
def ok(n): b = bin(n)[2:]; return b.count('0') >= 2 and b.count('1') >= 2
print(list(filter(ok, range(98)))) # Michael S. Branicky, Sep 10 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Apr 16 2009
STATUS
approved