OFFSET
2,1
COMMENTS
For a guide to related sequences, see A001000. - Clark Kimberling, Aug 08 2012
LINKS
Clark Kimberling, Table of n, a(n) for n = 2..100
EXAMPLE
Using the terminology introduced at A001000, the 3rd separator of the set {1/3, 1/2, 1} is a(3) = 17, since 1/3 < 6/17 < 8/17 < 1/2 < 8/17 < 10/17 < 1 and 17 is the least m for which 1/3, 1/2, 1 are thus separated using numbers k/m. - Clark Kimberling, Aug 08 2012
MATHEMATICA
leastSeparatorS[seq_, s_] := Module[{n = 1},
Table[While[Or @@ (Ceiling[n #1[[1]]] <
s + 1 + Floor[n #1[[2]]] &) /@ (Sort[#1, Greater] &) /@
Partition[Take[seq, k], 2, 1], n++]; n, {k, 2, Length[seq]}]];
t = Map[leastSeparatorS[1/Range[50], #] &, Range[5]];
TableForm[t]
t[[3]] (* Peter J. C. Moses, Aug 08 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved