proposed

approved

editing

proposed

allocated for Clark KimberlingInverse permutation of the sequence of positive integers at A232561.

1, 2, 3, 5, 9, 4, 7, 13, 6, 11, 20, 10, 18, 33, 17, 31, 57, 8, 15, 27, 14, 25, 46, 24, 44, 81, 12, 22, 40, 21, 38, 70, 37, 68, 125, 19, 35, 64, 34, 62, 114, 61, 112, 206, 32, 59, 108, 58, 106, 195, 105, 193, 355, 16, 29, 53, 28, 51, 94, 50, 92, 169, 26, 48

1,2

Clark Kimberling, <a href="/A232562/b232562.txt">Table of n, a(n) for n = 1..1000</a>

z = 8; g[1] = {1}; g[2] = {2, 3}; g[n_] := Riffle[g[n - 1] + 1, 3 g[n - 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}]] (* A232561 *)

Table[Length[g1[n]], {n, 1, z}] (* A001590 *)

t1 = Flatten[Table[Position[t, n], {n, 1, 200}]] (* A232562 *)

Cf. A232559, A232561, A001590.

allocated

nonn,easy

Clark Kimberling, Nov 26 2013

approved

editing

allocated for Clark Kimberling

allocated

approved