OFFSET
2,1
COMMENTS
a(n) is the least separator of S, as defined at A001000, which includes a guide to related sequences. - Clark Kimberling, Aug 12 2012
LINKS
Clark Kimberling, Table of n, a(n) for n = 2..300
MATHEMATICA
leastSeparatorShort[seq_, s_] := Module[{n = 1},
While[Or @@ (n #1[[1]] <= s + Floor[n #1[[2]]] &) /@ (Sort[#1, Greater] &) /@
Partition[seq, 2, 1], n++]; n];
Table[leastSeparatorShort[Sort[N[FractionalPart[GoldenRatio*Range[n]], 50]], 1], {n, 2, 100}]
(* Peter J. C. Moses, Aug 01 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 12 2012
STATUS
approved