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,1

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.

Formula

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

Mathematica

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

Prog

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

Crossrefs

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

Subsequence of A089648.

Sequence in context: A070712 A195884 A138268 * A031033 A128981 A212748

Adjacent sequences: A031441 A031442 A031443 * A031445 A031446 A031447

Keyword

nonn,base

Author

Clark Kimberling

Status

approved