OFFSET
0,6
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
j[n_] := (2^n - (-1)^n)/3; s[n_] := DigitCount[n, 2, 1]; a[n_] := s[j[n]] - j[s[n]]; Array[a, 100, 0] (* Amiram Eldar, Jul 22 2023 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paul Barry, Jan 14 2005
STATUS
approved