A102570 a(n) = A102568(A102568(n)).

1, 2, 3, 4, 5, 6, 10, 12, 7, 14, 8, 16, 18, 9, 20, 11, 48, 13, 28, 15, 31, 17, 36, 19, 38, 21, 22, 80, 44, 23, 43, 24, 25, 26, 51, 52, 27, 55, 29, 30, 58, 60, 32, 64, 66, 33, 34, 70, 68, 35, 144, 37, 76, 39, 79, 40, 41, 42, 87, 84, 45, 46, 94, 92, 47, 192, 49, 50, 99, 100, 53

Offset

1,2

Comments

Inverse permutation to A102571.

Links

Table of n, a(n) for n=1..71.

Index entries for sequences that are permutations of the natural numbers

Mathematica

nmax = 100;
A102568 = Nest[Append[#, If[#[[-1]] == #[[-2]]+1, 2 #[[-1]], Min[Complement[Range[Max[#]+1], #]]]]&, {1, 2}, 2 nmax];
a[n_ /; n <= Length[A102568]] := A102568[[A102568[[n]]]];
Table[a[n], {n, 1, nmax}] (* Jean-François Alcover, May 03 2023, after Ivan Neretin in A102568 *)

Crossrefs

Cf. A102568, A102571.

Sequence in context: A131934 A066501 A199191 * A113007 A113325 A210184

Adjacent sequences: A102567 A102568 A102569 * A102571 A102572 A102573

Keyword

nonn

Author

Reinhard Zumkeller, Jan 15 2005

Status

approved