A233560 Inverse of the permutation A233559 of the positive integers.

1, 2, 3, 4, 7, 5, 10, 8, 6, 12, 23, 9, 17, 19, 14, 15, 29, 11, 21, 24, 20, 39, 76, 16, 32, 34, 13, 26, 50, 25, 48, 30, 45, 57, 113, 18, 36, 41, 35, 46, 89, 38, 74, 77, 28, 55, 108, 31, 61, 63, 58, 67, 133, 22, 43, 51, 42, 82, 163, 47, 92, 94, 40, 59, 117, 78

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A233559.

Sequence in context: A191544 A191438 A191730 * A245703 A260426 A167151

Adjacent sequences: A233557 A233558 A233559 * A233561 A233562 A233563

Keyword

nonn,easy

Author

Clark Kimberling, Dec 14 2013

Status

approved