login
Numbers whose base-2 representation has one more 0 than 1's.
11

%I #18 Aug 03 2023 03:43:54

%S 4,17,18,20,24,67,69,70,73,74,76,81,82,84,88,97,98,100,104,112,263,

%T 267,269,270,275,277,278,281,282,284,291,293,294,297,298,300,305,306,

%U 308,312,323,325,326,329,330,332,337,338,340,344

%N Numbers whose base-2 representation has one more 0 than 1's.

%C If m is a term, then also 4*m+1. - _Reinhard Zumkeller_, Mar 31 2015

%H Reinhard Zumkeller, <a href="/A031444/b031444.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>.

%F A037861(a(n)) = 1. - _Reinhard Zumkeller_, Mar 31 2015

%t Select[Range[350], (Differences@ DigitCount[#, 2])[[1]] == 1 &] (* _Amiram Eldar_, Aug 03 2023 *)

%o (Haskell)

%o a031444 n = a031444_list !! (n-1)

%o a031444_list = filter ((== 1) . a037861) [1..]

%o -- _Reinhard Zumkeller_, Mar 31 2015

%Y Cf. A007088, A023416, A000120, A031448, A037861, A095072 (subsequence).

%Y Subsequence of A089648.

%K nonn,base

%O 1,1

%A _Clark Kimberling_