OFFSET
1,4
COMMENTS
The number of positive integers k < n such that n XOR k = (n-k) is A038573(n).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
f:= proc(n) 2^numboccur(0, convert(n, base, 2))-1 end proc:
map(f, [$1..100]); # Robert Israel, Feb 16 2026
PROG
(PARI) a(n)=sum(k=1, n, if(bitxor(n, k)==(n+k), 1, 0))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jan 21 2006
STATUS
approved
