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

Author

Reinhard Zumkeller, Jan 15 2005

Keywords

• nonn

Comments

Inverse permutation to A102571.

Links

• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A102568, A102571.

Programs

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