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

4, 17, 18, 20, 24, 67, 69, 70, 73, 74, 76, 81, 82, 84, 88, 97, 98, 100, 104, 112, 263, 267, 269, 270, 275, 277, 278, 281, 282, 284, 291, 293, 294, 297, 298, 300, 305, 306, 308, 312, 323, 325, 326, 329, 330, 332, 337, 338, 340, 344

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Comments

If m is a term, then also 4*m+1. - Reinhard Zumkeller, Mar 31 2015

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to binary expansion of n.

Crossrefs

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

Subsequence of A089648.

Programs

Haskell

a031444 n = a031444_list !! (n-1)
a031444_list = filter ((== 1) . a037861) [1..]
-- Reinhard Zumkeller, Mar 31 2015

Mathematica

Select[Range[350], (Differences@ DigitCount[#, 2])[[1]] == 1 &] (* Amiram Eldar, Aug 03 2023 *)

Formula

A037861(a(n)) = 1. - Reinhard Zumkeller, Mar 31 2015