OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Module[{d = Reverse[IntegerDigits[n, 2]]}, Total@ d[[1;; -1;; 2]] >= Total@ d[[2;; -1;; 2]]]; Select[Range[0, 100], q] (* Amiram Eldar, Aug 31 2023 *)
PROG
See link in A139351 for Fortran program.
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Nadia Heninger and N. J. A. Sloane, Jun 07 2008
STATUS
approved