A232799 Inverse permutation of the sequence of positive integers at A232798.

1, 2, 4, 3, 5, 11, 6, 9, 21, 10, 7, 16, 8, 12, 28, 13, 26, 62, 27, 14, 33, 15, 22, 52, 23, 50, 120, 51, 24, 57, 25, 17, 40, 18, 38, 91, 39, 19, 45, 20, 29, 69, 30, 67, 161, 68, 31, 74, 32, 63, 151, 64, 149, 359, 150, 65, 156, 66, 34, 81, 35, 79, 190, 80, 36

Offset

1,2

Links

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

Mathematica

x = {1}; Do[x = DeleteDuplicates[Flatten[Transpose[{x, x + 1, 3 x - 1, 3 x + 1}]]], {8}];  x (* A232798 *)
y = Flatten[Table[Position[x, n], {n, 1, 157}]] (* A232799 *)

Crossrefs

Cf. A232559, A232798.

Sequence in context: A264996 A100826 A338161 * A276472 A245702 A297706

Adjacent sequences: A232796 A232797 A232798 * A232800 A232801 A232802

Keyword

nonn,easy

Author

Clark Kimberling, Nov 30 2013

Status

approved