OFFSET
1,2
COMMENTS
Calculated by Vladeta Jovovic and David W. Wilson.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..170
MAPLE
r:= proc(l) local j; infinity; for j to nops(l) do l[j] +1/% od end: gl:= proc(n) local u, o, l, r; u:= 1; o:= n; l:=NULL; r:=NULL; do if u>o then break fi; l:= l, u; u:= u+1; if u>o then break fi; r:= u, r; u:= u+1; if u>o then break fi; l:= l, o; o:= o-1; if u>o then break fi; r:= o, r; o:= o-1 od; [l, r] end: a:= n-> numer (r (gl (n))): seq (a(n), n=1..25); # Alois P. Heinz, Nov 18 2009
MATHEMATICA
(* Script not suitable for more than a few terms *)
a[n_] := FromContinuedFraction /@ Permutations[Range[n]] // Numerator // Min;
Array[a, 10] (* Jean-François Alcover, Nov 18 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Apr 12 2005
EXTENSIONS
More terms from Alois P. Heinz, Nov 18 2009
STATUS
approved