OFFSET
1,3
COMMENTS
Indices of 0's in A220115.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
With[{z = Select[Range[0, 1350], BitAnd[#, 2 #] == 0 &]}, Select[Range[0, Length[z] - 1], DigitCount[#, 2, 1] == DigitCount[z[[# + 1]] , 2, 1] &]] (* Amiram Eldar, Jul 27 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Alex Ratushnyak, Dec 05 2012
STATUS
approved