OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
DigitCount[Select[Range[200], EvenQ[IntegerExponent[#, 2]] &], 2, 1]
PROG
(PARI) s(n) = if(n < 2, n > 0, n = s(n-1); until(valuation(n, 2)%2 == 0, n++); n); \\ A003159
a(n) = hammingweight(s(n));
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amiram Eldar, Jul 14 2023
STATUS
approved