OFFSET
0,7
COMMENTS
From Robert Israel, Jul 23 2019: (Start)
a(2*n+1)=a(2*n).
a(n)=1 if and only if n > 1 is in A283526. (End)
EXAMPLE
For example, a(6) = a(2^2 + 2^1) = w(2) + w(1) = 2.
MAPLE
Bwt:= proc(n) option remember; convert(convert(n, base, 2), `+`) end proc:
f:= proc(n) local L, i;
L:= convert(n, base, 2);
add(L[i]*Bwt(i-1), i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Jul 23 2019
MATHEMATICA
bpe[n_]:=Join@@Position[Reverse[IntegerDigits[n, 2]], 1];
Table[Total[Length/@bpe/@(bpe[n]-1)], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 22 2019
STATUS
approved