login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A024822 a(n) = least m such that if r and s in {1/1, 1/4, 1/7,..., 1/(3n-2)} satisfy r < s, then r < k/m < s for some integer k. 2
2, 5, 9, 22, 31, 53, 81, 97, 134, 177, 201, 253, 311, 342, 409, 482, 561, 603, 691, 785, 885, 937, 1046, 1161, 1282, 1409, 1475, 1611, 1753, 1901, 2055, 2215, 2297, 2466, 2641, 2822, 3009, 3202, 3301, 3503, 3711, 3925, 4145, 4371, 4486, 4721 (list; graph; refs; listen; history; text; internal format)
OFFSET

2,1

COMMENTS

For a guide to related sequences, see A001000. - Clark Kimberling, Aug 07 2012

LINKS

Clark Kimberling, Table of n, a(n) for n = 2..200

MATHEMATICA

leastSeparator[seq_] := Module[{n = 1},

Table[While[Or @@ (Ceiling[n #1[[1]]] <

2 + Floor[n #1[[2]]] &) /@ (Sort[#1, Greater] &) /@

Partition[Take[seq, k], 2, 1], n++]; n, {k, 2, Length[seq]}]];

t = Flatten[Table[1/(3 h - 2), {h, 1, 60}]];

leastSeparator[t]

CROSSREFS

Cf. A001000.

Sequence in context: A001851 A303963 A304349 * A218966 A029726 A052962

Adjacent sequences:  A024819 A024820 A024821 * A024823 A024824 A024825

KEYWORD

nonn

AUTHOR

Clark Kimberling

EXTENSIONS

Corrected by Clark Kimberling, Aug 07 2012

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 20 21:36 EST 2019. Contains 319336 sequences. (Running on oeis4.)