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 A319650 #16 Sep 26 2018 03:11:25
%S A319650 0,0,0,0,0,1,0,0,0,3,2,3,0,1,0,0,0,7,6,9,4,7,6,7,0,3,2,3,0,1,0,0,0,15,
%T A319650 14,21,12,19,18,21,8,15,14,17,12,15,14,15,0,7,6,9,4,7,6,7,0,3,2,3,0,1,
%U A319650 0,0,0,31,30,45,28,43,42,49,24,39,38,45,36,43,42,45,16
%N A319650 a(n) = A073138(n) - n.
%H A319650 Seiichi Manyama, <a href="/A319650/b319650.txt">Table of n, a(n) for n = 0..8191</a>
%o A319650 (Ruby)
%o A319650 def A(k, n)
%o A319650 (0..n).map{|i| i.to_s(k).split('').sort.reverse.join.to_i(k) - i}
%o A319650 end
%o A319650 p A(2, 100)
%o A319650 (PARI) a(n) = fromdigits(vecsort(binary(n),,4), 2) - n; \\ _Michel Marcus_, Sep 25 2018
%Y A319650 Cf. A073138, A164884.
%K A319650 nonn,base,look
%O A319650 0,10
%A A319650 _Seiichi Manyama_, Sep 25 2018