A232645 Inverse permutation of the sequence of positive integers at A232644.

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, 44, 73, 14, 24, 23, 39, 22, 37, 36, 60, 20, 34, 33, 55, 32, 53, 52, 86, 30, 50, 49, 81, 48, 79, 78, 128, 46, 76, 75, 123, 74, 121, 120, 196, 25, 42, 41, 68, 40, 66

Offset: 1

Author

Clark Kimberling, Nov 28 2013

Keywords

• nonn
• easy

Links

• Clark Kimberling, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A232559, A232639, A232644.

Programs

Mathematica

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