login
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
OFFSET
1,1
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
KEYWORD
nonn
AUTHOR
Joseph L. Pe, Oct 06 2005
STATUS
approved