OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
34 in binary is 100010. This has 4 zeros and 2 ones. And since 4 and 2 are both powers of 2, 34 is included in the sequence.
MATHEMATICA
p2Q[n_]:=And@@(IntegerQ[Log[2, #]]&/@DigitCount[n, 2]); Select[Range[250], p2Q] (* Harvey P. Dale, Aug 20 2013 *)
PROG
(Haskell)
a143072 n = a143072_list !! (n-1)
a143072_list = filter ((== 1) . a209229 . a023416) a143071_list
-- Reinhard Zumkeller, Sep 14 2014
CROSSREFS
KEYWORD
AUTHOR
Leroy Quet, Jul 22 2008
EXTENSIONS
Extended by Ray Chandler, Jun 20 2009
STATUS
approved