OFFSET
1,2
COMMENTS
Inverse permutation to A102571.
LINKS
MATHEMATICA
nmax = 100;
A102568 = Nest[Append[#, If[#[[-1]] == #[[-2]]+1, 2 #[[-1]], Min[Complement[Range[Max[#]+1], #]]]]&, {1, 2}, 2 nmax];
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 15 2005
STATUS
approved