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 A228071 #32 Sep 08 2022 08:46:05
%S A228071 0,0,8,8,96,96,104,104,992,992,1000,1000,1088,1088,1096,1096,9984,
%T A228071 9984,9992,9992,10080,10080,10088,10088,10976,10976,10984,10984,11072,
%U A228071 11072,11080,11080,99968,99968,99976,99976,100064,100064,100072,100072,100960,100960
%N A228071 Write n in binary and interpret as a decimal number; a(n) is this quantity minus n.
%C A228071 Difference between decimal and binary numbers written the same.
%H A228071 Charles R Greathouse IV, <a href="/A228071/b228071.txt">Table of n, a(n) for n = 0..10000</a>
%F A228071 a(n) ~ A007088(n). - _Charles R Greathouse IV_, Aug 09 2013
%F A228071 a(2^n + r) = a(2^n) + a(r) for 1 <= r <= 2^n - 1. - _Peter Bala_, Aug 12 2013
%F A228071 a(n) = A007088(n) - n. - _Omar E. Pol_, Aug 27 2013
%e A228071 5 in binary is written 101, so a(5) = 101-5 = 96.
%t A228071 Table[d = IntegerDigits[n, 2]; FromDigits[d, 10] - n, {n, 50}] (* _T. D. Noe_, Aug 08 2013 *)
%o A228071 (PARI) a(n)=subst(Pol(binary(n)),'x,10)-n \\ _Charles R Greathouse IV_, Aug 09 2013
%o A228071 (Magma) [Seqint(Intseq((n), 2))-n: n in [0..50]]; // _Vincenzo Librandi_, Feb 20 2016
%Y A228071 Cf. A007088, A127906.
%K A228071 nonn,base,easy
%O A228071 0,3
%A A228071 _André Engels_, Aug 08 2013