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 A232645 #4 Dec 02 2013 11:07:40
%S A232645 1,2,4,8,3,6,5,10,9,16,15,26,7,13,12,21,11,19,18,31,17,29,28,47,27,45,
%T A232645 44,73,14,24,23,39,22,37,36,60,20,34,33,55,32,53,52,86,30,50,49,81,48,
%U A232645 79,78,128,46,76,75,123,74,121,120,196,25,42,41,68,40,66
%N A232645 Inverse permutation of the sequence of positive integers at A232644.
%H A232645 Clark Kimberling, <a href="/A232645/b232645.txt">Table of n, a(n) for n = 1..1000</a>
%t A232645 z = 14; g[1] = {1}; g[2] = {2}; g[n_] := Riffle[g[n - 1] + 1, 2 g[n - 1] + 3]; j[2] = Join[g[1], g[2]]; j[n_] := Join[j[n - 1], g[n]]; g1[n_] := DeleteDuplicates[DeleteCases[g[n], Alternatives @@ j[n - 1]]]; g1[1] = g[1]; g1[2] = g[2]; t = Flatten[Table[g1[n], {n, 1, z}]] (* A232644 *)
%t A232645 Table[Length[g1[n]], {n, 1, z}] (* A000032 *)
%t A232645 Flatten[Table[Position[t, n], {n, 1, 200}]] (* A232645 *)
%Y A232645 Cf. A232559, A232639, A232644.
%K A232645 nonn,easy
%O A232645 1,2
%A A232645 _Clark Kimberling_, Nov 28 2013