|
%I #11 Jun 07 2023 16:10:40
%S 4,8,9,10,12,16,17,18,19,20,21,22,24,25,26,28,32,33,34,35,36,37,38,39,
%T 40,41,42,43,44,45,46,48,49,50,51,52,53,54,56,57,58,60,64,65,66,67,68,
%U 69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91
%N Numbers with at least two zeros in their binary representation.
%C Subsequence of A158581; complement of A089633; A023416(a(n))>1.
%C A265705(a(n),k) != A265705(a(n),a(n)-k) for at least one k <= a(n). - _Reinhard Zumkeller_, Dec 15 2015
%H R. Zumkeller, <a href="/A158582/b158582.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[100],DigitCount[#,2,0]>1&] (* _Harvey P. Dale_, Jan 19 2015 *)
%o (Haskell)
%o a158582 n = a158582_list !! (n-1)
%o a158582_list = [x | x <- [0..], a023416 x > 1]
%o -- _Reinhard Zumkeller_, Mar 31 2015
%Y Cf. A007088, A023416.
%Y Cf. A089633, A158581, A265705.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Apr 16 2009
|
