OFFSET
2,1
COMMENTS
For a guide to related sequences, see A001000. - Clark Kimberling, Aug 12 2012
LINKS
Clark Kimberling, Table of n, a(n) for n = 2..100
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/(2*Range[50]-1), #] &, Range[5]];
t[[5]] (* A024847 *)
(* Peter J. C. Moses, Aug 06 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved