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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A111048 a(n) = least i such that prime(n)/prime(n+1) < 1 - 1/i. 0
4, 3, 4, 3, 7, 5, 10, 6, 5, 16, 7, 11, 22, 12, 9, 10, 31, 12, 18, 37, 14, 21, 15, 13, 26, 52, 27, 55, 29, 10, 33, 23, 70, 15, 76, 27, 28, 42, 29, 30, 91, 20, 97, 50, 100, 18, 19, 57, 115, 59, 40, 121, 26, 43, 44, 45, 136, 47, 71, 142, 30, 22, 78, 157, 80, 24, 57, 35, 175, 89, 60, 46 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..72.

MATHEMATICA

f[n_] := Module[{a, b, i = 1}, a = Prime[n]; b = Prime[n + 1]; While[a/b >= 1 - 1/i, i = i + 1]; i]; Table[f[i], {i, 1, 100}]

CROSSREFS

Sequence in context: A103947 A178038 A241928 * A016700 A088910 A010308

Adjacent sequences:  A111045 A111046 A111047 * A111049 A111050 A111051

KEYWORD

nonn

AUTHOR

Joseph L. Pe, Oct 06 2005

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 February 23 12:35 EST 2019. Contains 320431 sequences. (Running on oeis4.)