A111048 a(n) = least i such that prime(n)/prime(n+1) < 1 - 1/i.

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

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