This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A286546 #16 Jun 30 2022 14:43:56 %S A286546 0,0,1,-1,3,1,-2,-2,7,5,2,2,-4,-4,-3,-5,15,13,10,10,4,4,5,3,-8,-8,-7, %T A286546 -9,-5,-7,-10,-10,31,29,26,26,20,20,21,19,8,8,9,7,11,9,6,6,-16,-16, %U A286546 -15,-17,-13,-15,-18,-18,-9,-11,-14,-14,-20,-20,-19,-21,63,61,58,58,52,52,53,51,40,40,41,39,43,41,38,38 %N A286546 a(n) = A006068(n) - n. %H A286546 Antti Karttunen, <a href="/A286546/b286546.txt">Table of n, a(n) for n = 0..16383</a> %H A286546 <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a> %F A286546 a(n) = A006068(n) - n. %F A286546 a(n) = -A286548(A006068(n)). - _Antti Karttunen_, Oct 02 2017 %o A286546 (Scheme) (define (A286546 n) (- (A006068 n) n)) %o A286546 (Python) %o A286546 def A286546(n): %o A286546 k, m = n, n>>1 %o A286546 while m > 0: %o A286546 k ^= m %o A286546 m >>= 1 %o A286546 return k-n # _Chai Wah Wu_, Jun 30 2022 %Y A286546 Cf. A006068, A283999, A286547, A286548, A292601. %K A286546 sign,base %O A286546 0,5 %A A286546 _Antti Karttunen_, May 18 2017