OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[200], Divisible[Length[Split[IntegerDigits[#, 2]]], 4]&] (* Harvey P. Dale, May 21 2012 *)
PROG
(PARI) isok(k) = (hammingweight(bitxor(k, k>>1)) % 4) == 0; \\ Michel Marcus, Oct 04 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved