A001000 a(n) = least m such that if a/b < c/d where a,b,c,d are integers in [0,n], then a/b < k/m < c/d for some integer k.
2, 3, 5, 7, 13, 17, 26, 31, 43, 57, 65, 82, 101, 111, 133, 157, 183, 197, 226, 257, 290, 307, 343, 381, 421, 463, 485, 530, 577, 626, 677, 703, 757, 813, 871, 931, 993, 1025, 1090, 1157, 1226, 1297, 1370, 1407, 1483, 1561, 1641, 1723, 1807, 1893, 1937, 2026, 2117
Offset: 1
Examples
The Farey fractions of order 4, 0/1, 1/4, 1/3, 1/2, 2/3, 3/4, 1/1, are separated by the fractions k/7: 0/1 < 1/7 <1/4 < 2/7 < 1/3 < 3/7 < 1/2 < 4/7 < 2/3 <5/7 < 3/4 <6/7 < 1 and 7 is the least m for which at least one k/m lies strictly between each pair of Farey fractions.
Links
- T. D. Noe, Table of n, a(n) for n = 1..1000
- Max Alekseyev, Proof that A001000 and A071111 are essentially the same sequence
Crossrefs
Cf. A071111.
Programs
-
Mathematica
(* The following program generates a northwest corner of an array in which row k shows the least k-th separator of the set {1/h : h = 1,2,...,n}. *) leastSeparatorS[seq_, s_] := Module[{n = 1}, Table[While[Or @@ (n #[[1]] <= s + Floor[n #1[[2]]] &) /@ (Sort[#1, Greater] &) /@ Partition[Take[seq, k], 2, 1], n++]; n, {k, 2, Length[seq]}]]; TableForm[Map[leastSeparatorS[1/Range[15], #] &, Range[10]]] (* Peter J. C. Moses, Aug 07 2012 *)
Formula
For n >= 2, a(n) = (n-[r])(n-[r+1/2])+1, where r = sqrt(4n-7), [x] = greatest integer <= x. - David W. Wilson, Aug 30 2007
Extensions
Incompleteness of old definition pointed out by Christopher Carl Heckman, and revised definition supplied by Clark Kimberling, Feb 18 2004
Definition of separator, guide to related sequences, and Mathematica program added by Clark Kimberling, Aug 07 2012
Comments