1,1

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

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}]

Sequence in context: A103947 A178038 A241928 * A016700 A088910 A010308

Adjacent sequences: A111045 A111046 A111047 * A111049 A111050 A111051

nonn

Joseph L. Pe, Oct 06 2005

approved