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,2

Links

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

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 *)

Crossrefs

Cf. A232559, A232639, A232644.

Sequence in context: A338196 A243062 A341993 * A257470 A139080 A036118

Adjacent sequences: A232642 A232643 A232644 * A232646 A232647 A232648

Keyword

nonn,easy

Author

Clark Kimberling, Nov 28 2013

Status

approved