A232641 Inverse permutation of the sequence of positive integers at A232640.

1, 2, 3, 5, 4, 7, 6, 10, 9, 15, 8, 13, 12, 20, 11, 18, 17, 28, 16, 26, 25, 41, 14, 23, 22, 36, 21, 34, 33, 54, 19, 31, 30, 49, 29, 47, 46, 75, 27, 44, 43, 70, 42, 68, 67, 109, 24, 39, 38, 62, 37, 60, 59, 96, 35, 57, 56, 91, 55, 89, 88, 143, 32, 52, 51, 83

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

Crossrefs

Cf. A232559, A232639, A232640, A000045.

Sequence in context: A255557 A261102 A101212 * A258746 A064706 A100282

Adjacent sequences: A232638 A232639 A232640 * A232642 A232643 A232644

Keyword

nonn,easy

Author

Clark Kimberling, Nov 28 2013

Status

approved