A232645 - OEIS

%I #4 Dec 02 2013 11:07:40

%S 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 44,73,14,24,23,39,22,37,36,60,20,34,33,55,32,53,52,86,30,50,49,81,48,

%U 79,78,128,46,76,75,123,74,121,120,196,25,42,41,68,40,66

%N Inverse permutation of the sequence of positive integers at A232644.

%H Clark Kimberling, <a href="/A232645/b232645.txt">Table of n, a(n) for n = 1..1000</a>

%t 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 Table[Length[g1[n]], {n, 1, z}]  (* A000032 *)

%t Flatten[Table[Position[t, n], {n, 1, 200}]]  (* A232645 *)

%Y Cf. A232559, A232639, A232644.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Nov 28 2013