A232562 - OEIS

A232562

Inverse 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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

MATHEMATICA

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

CROSSREFS

Cf. A232559, A232561, A001590.

Sequence in context: A107477 A271525 A357101 * A064358 A109736 A119628

Adjacent sequences: A232559 A232560 A232561 * A232563 A232564 A232565

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Nov 26 2013

STATUS

approved