login
A102570
a(n) = A102568(A102568(n)).
2
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.
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
Sequence in context: A131934 A066501 A199191 * A113007 A113325 A210184
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 15 2005
STATUS
approved