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 A270198 #12 Jun 02 2016 16:15:55
%S A270198 3,5,6,9,10,11,14,17,18,19,20,23,26,27,30,33,34,35,36,37,40,43,44,47,
%T A270198 50,51,52,55,58,59,62,65,66,67,68,69,70,73,76,77,80,83,84,85,88,91,92,
%U A270198 95,98,99,100,101,104,107,108,111,114,115,116,119,122,123,126,129,130,131,132,133,134,135,138,141,142,145
%N A270198 a(n) = A054429(A055938(A054429(n))).
%C A270198 Positive natural numbers not in the range of A233272.
%H A270198 Antti Karttunen, <a href="/A270198/b270198.txt">Table of n, a(n) for n = 1..8192</a>
%F A270198 a(n) = A054429(A055938(A054429(n))).
%t A270198 s = Range[2^(# + 1) - 1, 2^#, -1] & /@ Range[0, 12] // Flatten; t = Complement[#, 2 # - DigitCount[2 #, 2, 1] & /@ #] &@ Range[20007]; Table[s[[ t[[ s[[n]] ]] ]], {n, 74}] (* _Michael De Vlieger_, Jun 01 2016, after _Harvey P. Dale_ at A005187 and A054429 *)
%o A270198 (Scheme)
%o A270198 (define (A270198 n) (A054429 (A055938 (A054429 n))))
%Y A270198 Complement: A270200.
%Y A270198 Cf. A054429, A055938, A233272.
%K A270198 nonn,base
%O A270198 1,1
%A A270198 _Antti Karttunen_, May 31 2016