OFFSET
1,2
COMMENTS
LINKS
PROG
(PARI) b(n)=my(L=logint(n, 2), A=n); for(i=0, L, A+=2^i*bittest(A, L-i)); A;
a(n)=(b(2*n) - 1)/2 - n
CROSSREFS
KEYWORD
nonn
AUTHOR
Mikhail Kurkov, Jun 11 2022 [verification needed]
STATUS
approved