A232639 Inverse permutation of the sequence of positive integers at A232638.

1, 2, 3, 4, 5, 7, 6, 9, 8, 12, 11, 17, 10, 15, 14, 22, 13, 20, 19, 30, 18, 28, 27, 43, 16, 25, 24, 38, 23, 36, 35, 56, 21, 33, 32, 51, 31, 49, 48, 77, 29, 46, 45, 72, 44, 70, 69, 111, 26, 41, 40, 64, 39, 62, 61, 98, 37, 59, 58, 93, 57, 91, 90, 145, 34, 54

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

Crossrefs

Cf. A232559, A232638, A000045.

Sequence in context: A178528 A183084 A185975 * A232638 A023826 A283192

Adjacent sequences: A232636 A232637 A232638 * A232640 A232641 A232642

Keyword

nonn,easy

Author

Clark Kimberling, Nov 28 2013

Status

approved