OFFSET
1,2
COMMENTS
1 and integers with three or more 1-bits in their binary expansion. - Vladimir Baltic, Jul 23 2002
A073267(a(n)) = 0. [Reinhard Zumkeller, Mar 07 2012]
Appears to be the numbers k >1 for which there exist an x and y (x>y) such that x OR y = k, x+y != k, and x<k. - Gary Detlefs, Jun 02 2014
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MAPLE
f:= x -> convert(convert(x, base, 2), `+`)>2:
{1} union select(f, {$2..1000}); # Robert Israel, Jun 08 2014
MATHEMATICA
Join[{1}, Select[Range[100], DigitCount[#, 2, 1] >= 3&]] (* Jean-François Alcover, Mar 08 2019 *)
PROG
(Haskell)
a072823 n = a072823_list !! (n-1)
a072823_list = tail $ elemIndices 0 a073267_list
-- Reinhard Zumkeller, Mar 07 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Jeremy Gardiner, Jul 21 2002
STATUS
approved