login
A232641
Inverse permutation of the sequence of positive integers at A232640.
2
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Nov 28 2013
STATUS
approved