cp's OEIS Frontend

A057520 a(n) = A014486(n)/2. In binary expansion there is one more 1 than 0 and reading from the left (the most significant bit) to right, the number of 0's never exceed the number of 1's.

%I A057520 #9 Jan 14 2022 07:14:42
%S A057520 0,1,5,6,21,22,25,26,28,85,86,89,90,92,101,102,105,106,108,113,114,
%T A057520 116,120,341,342,345,346,348,357,358,361,362,364,369,370,372,376,405,
%U A057520 406,409,410,412,421,422,425,426,428,433,434,436,440,453,454,457,458,460
%N A057520 a(n) = A014486(n)/2. In binary expansion there is one more 1 than 0 and reading from the left (the most significant bit) to right, the number of 0's never exceed the number of 1's.
%H A057520 Harvey P. Dale, <a href="/A057520/b057520.txt">Table of n, a(n) for n = 0..2000</a>
%t A057520 Join[{0},Select[Range[500],With[{id=IntegerDigits[#,2]/.(0->-1)},Total[id] == 1&&Min[Accumulate[id]]>=0]&]] (* _Harvey P. Dale_, Dec 31 2021 *)
%Y A057520 Cf. A014486.
%K A057520 nonn
%O A057520 0,3
%A A057520 _Antti Karttunen_, Sep 03 2000